วีดีโอ

Bonsoir, merci pour votre commentaire. Je pense qu'il vous manque une partie du code VBA. Tout en bas de la macro, juste avant "End Sub", est-ce que vous avez bien les 2 lignes ci-dessous ? Exit Sub Erreur: MsgBox "Une erreur est survenue" Je reste à disposition si besoin Bonne soirée

@@monsieurexcel7721 merci pour votre réponse. Oui les 2 lignes sont bien là

cela indique : Erreur d'exécution '-2147024894 (80070002)': La méthode 'UserPicture' de l'objet 'FillFormat' a échoué

Bonsoir, vous pouvez les renommer en suivant les étapes ci-dessous : 1) Clique droit sur le graphique RADAR 2) Cliquer sur "Sélectionner des données" 3) Sélectionner "série 1" et cliquer sur le bouton "modifier" 4) Vous pouvez écrire "Produit A" dans "Nom de la série"

Bonsoir, pouvez-vous me détailler ce qui n'a pas fonctionné svp ?

@@monsieurexcel7721 J'ai fait tout comme vous et quand j'appui ca ne fonctionne pas ?

Bonsoir, merci pour votre commentaire. Quel message d'erreur obtenez-vous svp ? Merci,

@@monsieurexcel7721 Bonjour je vous ai adressé un mail ^^

Bonsoir, merci pour votre message. Je pense qu'ils vous manque ces 2 lignes de code VBA à la fin de la macro que vous avez utilisé : Exit Sub Erreur: MsgBox "Une erreur est survenue" Merci, bonne soiée,

@@monsieurexcel7721 merci beaucoup c'est parfait merci

Bonsoir, merci pour votre message. Est-ce que vous obtenez un message d'erreur ? Quel est-il ?

Bonjour, merci pour votre message. Désolé je n'ai pas trouvé de moyen d'ajouter cette fonction dans la macro. Si besoin, vous pouvez éventuellement ajouter une zone de texte à côté de l'organigramme et de la lier à une cellule dans laquelle vous pouvez utiliser la fonction "CELULLE" permettant de récupérer les informations de votre fichier Excel. =CELLULE("nomfichier") Merci, bonne soirée

Bonjour, merci beaucoup. Est-ce que votre macro est bien enregistrée dans l'onglet Visual Basic ? Est-ce que cela fonctionne si vous lancez la macro en cliquant sur l'onglet Développeur puis Macro (cliquer sur votre macro) puis Exécuter ?

Bonsoir, oui je pense mais il sera nécessaire de modifier le code VBA. Désolé je n'ai pas de fichier exemple disponible, j'essayerai de faire un test à l'occasion.

Bonsoir, Il faut remplacer Range("B3") par Range("B20"). Ce changement sera à appliquer à plusieurs endroits dans le code, Merci

Bonjour, merci pour votre commentaire 🙂 Oui cela me semble possible en utilisant une carte de votre département en arrière-plan et en ajoutant au cas par cas des points pour les agents localisés dans les différentes villes. Tout dépend du nombre d'agents/villes, cela va certainement prendre pas mal de temps à paramétrer. Merci, bonne soirée

@@monsieurexcel7721 Nous avons 194 communes sur le départements et une vingtaine d'agents dans le vivier... Vous n'auriez pas en projet une vidéo ? 😬 Cela s'apparente à une application qui pourrait intéresser beaucoup de monde à titre privé ou professionnel...

Bonjour, est-ce que vous obtenez un message d'erreur ? Votre macro se termine-t-elle bien avec "End Sub" ? Merci, bon dimanche

Bonsoir, merci pour votre message. Est-ce que à la fin de votre macro vous avez bien : End Sub Il faut que la macro commence par "Sub" et finisse par "End Sub". Exemple : Sub Macro1() ' ' End Sub

​​@@monsieurexcel7721 Encore merci pour votre prompte réponse. En effet, ne comprenant pas le langage de la macro, j'ai "bêtement" copié collé le contenu en vérifiant que le début et la fin correspondaient bien. Cependant, dans votre commentaire, la macro se termine par Exit sub Erreur : MsgBox"Une erreur est survenue" alors que sur l'écran il est écrit seulement en bas : End sub. J'ai réessayé mais la première fois la fenêtre Visual basic s'ouvrait en affichant "Étiquette non définie", en surlignant, en jaune Sub Macro() avec une flèche à gauche, et en bleu la 5eme ligne de la macro "On error GoTo Erreur". Puis j'ai tout recommencé jusqu'au bouton mais maintenant lorsque je clique dessus il ne se passe rien. 😢

@@rubenk5677 Est-ce que votre code se termine bien par : Exit Sub Erreur: MsgBox "Une erreur est survenue" End Sub

​​@@monsieurexcel7721Bonsoir monsieur, Oui, il se termine exactement ainsi. Lorsque je clique sur le bouton, après avoir méticuleusement reproduit chaque étape, il me se passe rien. 😢 Ne vous embêtez pas, je vais maintenant devoir apprendre le fonctionnement des macros. 😮 Encore mille mercis pour votre aide et votre excellent travail pédagogique. Je vous souhaite plein de belles choses. 🙏

@@rubenk5677 Si besoin je peux vous envoyer un fichier exemple par email. Merci à vous pour votre message, passez un excellent week-end. ☺

Merci beaucoup

@@monsieurexcel7721 Mais pour qu'elle raison t’es-tu arrêté ?

@@Pablo_Toulouse Par manque de temps, désolé. Merci en tout cas pour les commentaires, bonne soirée

Bonsoir, veuillez trouver ci-dessous la macro : Dim ogSALayout As SmartArtLayout Dim QNode As SmartArtNode Dim QNodes As SmartArtNodes Dim t As Integer On Error GoTo Erreur Set ogSALayout = Application.SmartArtLayouts(92) Set ogShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(ogSALayout) Set QNodes = ogShp.SmartArt.AllNodes t = QNodes.Count While QNodes.Count = t QNodes(QNodes.Count).Delete Wend While QNodes.Count < Range("B3").End(xlDown).Offset(-2, 0).Row QNodes.Add.Promote Wend For i = 3 To Range("B3").End(xlDown).Row While QNodes(Range("B" & i)).Level > Range("D" & i).Value QNodes(Range("B" & i)).Promote Wend QNodes(Range("B" & i)).TextFrame2.TextRange.Text = Range("C" & i) Next i For i = 3 To Range("B3").End(xlDown).Row While QNodes(Range("B" & i)).Level < Range("D" & i).Value QNodes(Range("B" & i)).Demote Wend Next i Exit Sub Erreur: MsgBox "Une erreur est survenue"

Bonjour, oui, je travaille justement sur une nouvelle version de ce tutoriel.

Bonjour, il faut lier les cellules de votre tableau et ajouter une fonction SI()

Bonjour, oui vous pouvez tout à fait utiliser une liste déroulante à la place des cases à cocher. Le fonctionnement restera identique. Bonne fin de journée,

Merci beaucoup pour votre message !

Dim ogSALayout As SmartArtLayout Dim QNode As SmartArtNode Dim QNodes As SmartArtNodes Dim t As Integer On Error GoTo Erreur Set ogSALayout = Application.SmartArtLayouts(92) Set ogShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(ogSALayout) Set QNodes = ogShp.SmartArt.AllNodes t = QNodes.Count While QNodes.Count = t QNodes(QNodes.Count).Delete Wend While QNodes.Count < Range("B3").End(xlDown).Offset(-2, 0).Row QNodes.Add.Promote Wend For i = 3 To Range("B3").End(xlDown).Row While QNodes(Range("B" & i)).Level > Range("D" & i).Value QNodes(Range("B" & i)).Promote Wend QNodes(Range("B" & i)).TextFrame2.TextRange.Text = Range("C" & i) Next i For i = 3 To Range("B3").End(xlDown).Row While QNodes(Range("B" & i)).Level < Range("D" & i).Value QNodes(Range("B" & i)).Demote Wend Next i Exit Sub Erreur: MsgBox "Une erreur est survenue"

Merci de votre réponse super sympa