Excel - Automatic and dynamic Organizational Chart - VBA

[@monsieurexcel7721]

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"

[@elmostafaferhane7849]

Bonsoir, je vous félicite et remercie pour toutes vos vidéos de formation excel. Malheureusement ces formules ci-dessous ne marchent pas pour moi. On me renvoie toujours un message de débogage. Je vous saurai gré de bien vouloir m'aider. Je sais pas comment faire... 1000 mercis.

[@elmostafaferhane7849]

Bonsoir, je vous félicite et remercie pour toutes vos vidéos de formation excel. Malheureusement ces formules ci-dessus ne marchent pas pour moi. On me renvoie toujours un message de débogage. Je vous saurai gré de bien vouloir m'aider. Je sais pas comment faire... 1000 mercis.

[@monsieurexcel7721]

@@elmostafaferhane7849 Bonjour, merci pour vos compliments. Si vous le souhaitez je peux vous envoyer le fichier que j'ai utilisé dans ma vidéo, contactez moi par email : [e-mail] Par ailleurs, n'hésitez pas à m'envoyer une capture d'écran du message d'erreur que vous obtenez. Bonne journée

[@lesliecourty8524]

Bonjour, Merci pour votre explication... Par contre le code ne fonctionne pas. Mais je l'ai recopier car je n'ai pas pu le copier coller... Résultats il me créer un bouton à chaque fois et me crée un organigramme vide. Pourriez vous m'aider ? Merci en tout cas ! Bonne journée

[@monsieurexcel7721]

@@lesliecourty8524 Bonsoir, pourriez-vous s'il vous plaît m'envoyer un mail avec une capture d'écran de votre code VBA svp ? Je pourrai aussi vous envoyer le fichier Excel utilisé dans ma vidéo. [e-mail] Bonne soirée, Maxime LUCANO

[@kaiokevprod]

Un gros merci, c'est très bien expliqué et facile à reproduire

[@monsieurexcel7721]

Merci beaucoup pour votre message !

[@konatefona4982]

Merci, c'est juste génial comme tuto. ça m'a fait du bien!

[@TheMezanine]

Merci beaucoup pour ce tutorial qui m'a été très utile!!!

[@cecilou8139]

Merci beaucoup!! Vous m'avez sauvé !!

[@aramroshani6197]

Merci infiniment cher monsieur, avec une explication claire comme l'eau de source....

[@monsieurexcel7721]

Merci beaucoup pour votre commentaire :) Bonne journée Maxime LUCANO

[@sopatisserie1282]

Excellente vidéo, une réalisation un peu plus poussée, très sympa. Mieux que le premier modèle présenté, mais pas trop compliqué à réaliser. Très abordable. J'ai appris des astuces et fonctions pour autres utilisations. Il s'agit du mielleux tuto que j'ai trouvé pour Excel Organigramme sur KZbin. Bravo et merci!

[@monsieurexcel7721]

Je vous remercie beaucoup pour votre commentaire, cela fait plaisir d'avoir ce genre de retour. Merci, passez une excellente soirée

[@claudebayle9492]

Bonjour, je cherche à télécharger la macro.... mais je ne la trouve pas !!!! J'ai vu un lien avec une heure (8:23) mais il ne donne rien..... Merci pour les infos. CB

[@yomndabbah7230]

C’est vraiment utile, merci beaucoup 😊 🙏

[@monsieurexcel7721]

Merci 😊

[@dcampsraissa3374]

Bonjour , Merci beaucoup ce tuto . Serait-il possible d'avoir le code pour sélectionner directement la mise en forme de couleur. Merci

[@xaviersimon9061]

Merci beaucoup pour la vidéo !

[@MUTONIDANIEL]

Salut ! J'ai eu Erreur de compilation: Variable non défini, j'utilise Office 2019. Comment résoudre ça ?

[@raymondbenjaminmiahe5031]

Comment je vais pourvoir procéder pour réaliser des arbre à objectifs avec Excel Merci de m'aider

[@brahimbrakni7707]

Merci excellent tuto

[@djiwaboundit.jerome7837]

Bonjour, je vous remercie pour cette vidéo pratique, mais je ne trouve pas le code du programme pour coller entre les deux SUB.

[@monsieurexcel7721]

Bonjour, merci. Voir code ci-dessous, bonne soirée : 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"

[@VincentS-f5m]

Bonjour, merci pour cette vidéo. est-il possible de faire la même chose avec un graph smartart en liste de bloc simple ?

[@monsieurexcel7721]

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.

[@nirleinesaintgermain3748]

Bonjour, je vous remercie pour cette vidéo instructive et utile cependant j'ai appliqué pour mon fichier excel, ça ne fonctionne pas; je vous ai envoyé également un mail sur le problème rencontré. Merci Cordialement

[@inesfakret7931]

Bonjour, merci pour la vidéo. lorsque je filtre mon tableau en affichant seulement certains niveaux j’aimerai que l’organigramme s’actualise et affiche aussi seulement certains niveaux. Est-ce possible ? Merci d’avance

[@lisolifestyle8402]

Comment vous avez fait pour generer l’organigramme Svp?

[@touryalexandre5767]

Bonjour , merci pour cette vidéo est il possible d'intégrer le mail et le téléphone dans l'organigramme final ils apparaissent dans le premier tableau , merci d'avance pour votre retour

[@dinaidagudina]

Bonjour, Merci beaucoup pour cette vidéo, est ce qu'il y a un code vba qui permet de créer le même organigramme, mais en ayant seulement l'ID et l'ID de leur manager ?

[@monsieurexcel7721]

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

[@daniellancelin1187]

Bonjour Comment obtenir le code de la macro? Merci à vous

[@marcveray4413]

Bonjour puis-je insérer des lignes dans le tableau qui démarre B3 et combien? Si je travaille sous mac le chemin pour les photo fonctionne t il avec le chemin ?

[@monsieurexcel7721]

Bonsoir, oui vous pouvez en insérer. Pour le nombre, cela dépend des employés que vous souhaitez afficher. Je n'ai malheureusement jamais essayé sur Mac mais je pense que cela doit fonctionner.

[@celinec9249]

Merci pour le tutoriel ! Très utile et simple à réaliser.

[@monsieurexcel7721]

Merci beaucoup Maxime

[@FaureAnne]

bonjour. j'ai un souci avec le code... l'entête Sub macro1() s'affiche en jaune. pouvez-vous aider ? Merci

[@monsieurexcel7721]

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

[@SamSung-et3dp]

Svp ! Comment avoir le tavleau ?

[@Charles-oe6vl]

Merci pour le tutoriel ! Juste une question : y aurait-il possibilité d'ajouter le niveau assistante dans la macro ?

[@monsieurexcel7721]

Merci à vous pour le commentaire ! :) Oui vous pouvez ajouter d'autres niveaux étant donné que la macro s'adapte automatiquement à vos données : - si vous souhaitez ajouter un niveau "assistante", il sera nécessaire de modifier les niveaux hiérarchiques de vos employés dans vos données (colonne n°3 ou colonne D) - par exemple, si vous avez 3 "niveaux" d'employés : -> vous pouvez mettre le directeur au niveau hiérarchique 1 -> les responsables au niveau 2 (en ajoutant un "2" dans la colonne D) -> les assistantes au niveau 3 (en écrivant "3" dans la colonne D) Dans ma vidéo, les assistants sont au niveau 4 (Ivan LEMETRE, Mathilde NINAR) Si besoin vous pouvez me contacter : [e-mail] Merci, Maxime

[@claudebayle9492]

Vraiment super. J'ai une erreur sur la variable ogShp avec un Excel 2016 mais aucune erreur sous Excel 2019. J'ai cependant une question: comment remplir automatiquement les organigramme dont les pavés ont deux zones de texte. Merci d'avance si vous pouvez nous donner ce complément.

[@monsieurexcel7721]

Bonsoir, merci pour votre commentaire. Si vous souhaitez utiliser un organigramme comprenant deux zones de texte, il faudra malheureusement adapter la macro. Je n'ai jamais essayé ce type d'organigramme, il faudra que je fasse des essais à l'occasion.

[@elhadjigano9076]

Bravo et merci

[@johanna2275]

Bonjour, Si notre tableau se situe à la ligne B20 et non B3, que faut-il changer sur le code ? Merci

[@monsieurexcel7721]

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

[@frederiquecalderini]

Bonjour, Je suis sous google sheet est-il possible d'avoir la macro en version Javascript ?

[@monsieurexcel7721]

Bonjour, Non désolé,

[@nicolaslapsker2684]

Bonjour, Merci beaucoup pour toute vos explications qui m'ont aidé. Malheureusement je n'arrive pas jusqu'au tableau. En effet Visual basic m'indique un message différent. Pourriez vous m'aider ?

[@monsieurexcel7721]

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

[@nicolaslapsker2684]

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

[@RogerNirinaRANDRIANAMBININA]

Merci pour le tuto génial . il arrive qu'un niveau 2 est supérieur direct d'un niveau 4 à part ces subordonnées en niveau 3. comment on fait? et aussi mettre une photo à coté des responsables (niveau 1, 2 et 3 par exemple). Merci à vous

[@patricialemoine1515]

Merci énormément pour ce tuto! c'est super! Mais est ce qu'il est possible de modifier le template lors de l'importation? De plus, est ce que l'on peut mettre une autre couleur pour un niveau 5 ?

[@monsieurexcel7721]

Bonjour, merci pour votre message. Oui il est possible de le modifier en remplaçant la valeur entre parenthèses dans la ligne de code ci-dessous : Set ogSALayout = Application.SmartArtLayouts(92) Vous pouvez par exemple faire un essai en remplaçant 92 par 93 et ensuite cliquer sur le bouton permettant de générer l'organigramme. Concernant les couleurs, oui vous pouvez attribuer une couleur en sélectionnant au cas par cas chaque bloc de votre organigramme. Bonne journée Maxime LUCANO

[@patricialemoine1515]

Merci énormément :) C'est vraiment génial

[@raymondbenjaminmiahe5031]

Bonjour super tuto Mais je n'arrive pas à créer un arbre à problème avec. Comment je dois faire aider moi

[@monsieurexcel7721]

Bonjour, merci pour votre message. Ce type de SmartArt n'est malheureusement pas adapté pour la réalisation d'arbre à problèmes.

[@mohamedrachad7606]

bonsoir merci pour votre video . Cela m'a beaucoup aidé. J'ai un ptit soucis dans mon organigramme la macro une fois exécuté m'affiche obligatoirement un minimum de six cases. avec un gerant et 2 employés, il m'affiche 3 cases en plus avec écrit "texte" à l'intérieur. pouvez vous m'aider?

[@monsieurexcel7721]

Bonsoir, Merci pour votre commentaire. Dans votre situation (organigramme pour une entreprise < 6 employés), la solution est de modifier 3 lignes du code VBA. Il est nécessaire de remplacer : While QNodes.Count = t QNodes(QNodes.Count).Delete Wend Par : While QNodes.Count > Range("B3").End(xlDown).Offset(-2, 0).Row QNodes(QNodes.Count).Delete Wend N'hésitez pas à revenir vers moi si vous avez d'autres questions ou si jamais le code ne fonctionne pas. Passez une bonne soirée, Maxime

[@mohamedrachad7606]

Merci pour votre promptitude, et comme on peut s'y attendre de votre part, ca fonctionne!!!

[@zoumykone1607]

Votre macro peut elle être utilisée avec d'autres données ? Merci

[@monsieurexcel7721]

Bonjour, oui normalement aucun problème. Quel type de données avez-vous en tête ?

[@riadbelabbas5725]

Bonjour. merci pour cette vidéo. le code ne marche pas ! puis-je avoir le code correcte ?

[@monsieurexcel7721]

Bonsoir, le code est correct, avez-vous bien suivi les étapes ? Quel message d'erreur obtenez-vous ?

[@Lludivinel]

Merci beaucoup, votre vidéo m'a été d'une grande aide pour faire mon organigramme. Il y a juste le 2 concatener qui n'a pas fonctionné (le nom prénom et en dessous la fonction) merci !!!

[@monsieurexcel7721]

Super, merci à vous pour votre message ! Passez une bonne soirée, Maxime

[@stephaniedenierdaprigny4584]

Bonjour merci beaucoup, pour vos explications sur ce tuto. j'ai un mac et malheureusement le code de fonctionne pas, pouvez vous m'aider ? En vous remerciant d'avance

[@monsieurexcel7721]

Bonjour, avez-vous le message d'erreur suivant : "Erreur de compilation, Variable non définie" ? Si oui, la solution que j'utilise pour contourner cette erreur est de remplacer "ogShp" dans la macro. Cette variable apparaît 2 fois, il faut remplacer "ogShp" par "oShp". N'hésitez pas à revenir vers moi, je pourrai si besoin vous envoyer le fichier Excel.

[@mariameborybah6681]

Bonjour Mr excel merci beaucoup pour ce Tito une explication claire. J'aimerais savoir si on peut faire c même organigramme pour 40 employés

[@RubenKasbaoui]

Bonjour Monsieur, Lorsque je clique sur le bouton pour que l'organigramme apparaisse, la fenêtre Visual Basic s'ouvre et affiche "Erreur de compilation: End Sub attendu" ? Mille mercis pour vos vidéos et votre temps, Cordialement

[@monsieurexcel7721]

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

[@rubenk5677]

​​@@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. 😢

[@monsieurexcel7721]

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

[@rubenk5677]

​​@@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. 🙏

[@monsieurexcel7721]

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

[@theomccabe2764]

Bonjour j'ai une question, Pour le niveau, comment définir l'emplacement hiérarchique. C à d par exemple que le chef de produit se trouve exactement en dessous du responsable du marketing mais pas du responsable de service commercial ?

[@monsieurexcel7721]

Bonjour, Pour définir l'emplacement hiérarchique il faut prendre en compte deux composantes : - L'organigramme doit être réalisé branche par branche (si vous souhaitez que le chef de produit se trouve en dessous du responsable marketing, il faudra donc lister le responsable mktg puis le cdp) - La position hiérarchique doit être renseignée dans la colonne D (dans votre cas, le DG sera en position 1, le responsable mktg en position 2 et le cdp en position 3)

[@theomccabe2764]

@@monsieurexcel7721 D'accord merci beaucoup 🙏🏾

[@edoubaglenn4187]

bonjour j aimerai savoir s il vous plait à quelle moment je lance le smart art .ou bien on doit juste appliquer votre code macro .

[@monsieurexcel7721]

Bonjour, Vous n'avez pas besoin d'insérer un modèle SmartArt, la macro va automatiquement en ajouter un.

[@saladincleopatre4229]

Comment fait on ça sur plusieurs page?????

[@monsieurexcel7721]

Bonjour, si vous avez plusieurs organigrammes à réaliser, avec différents employés, le plus simple est de créer un fichier Excel pour chaque organigramme.

[@SamSung-et3dp]

Comment utiliser la meme police avec le tout au lieu de le faire un par un? Aussi pour la mise en page , est que on dois respecter?

[@monsieurexcel7721]

Bonjour, non pas besoin de respecter la mise en page.

[@SamSung-et3dp]

@@monsieurexcel7721 merci! Mais à la fin , quand on clic sur ( voir avant impression) on ne vois pas une partie de la droite car une ligne interrompue coupe le travail

[@davidmotanel5223]

C'est sur quelle version d'excel, je suis sur 2007, je fais tout comme toi mais ça fonctionne pas.

[@monsieurexcel7721]

Bonjour, j'ai déjà eu quelques retours concernant la version 2007 d'Excel (elle contient moins de fonctionnalités que les versions actuelles). Est-ce que vous pourriez essayer avec la macro ci-dessous ? Sub Macro1() 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 QNodes = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(ogSALayout).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" End Sub

[@valentinosgaramella5291]

merci beaucoup! Impeccable!!

[@monsieurexcel7721]

Super, merci pour votre message🙂

[@valentinosgaramella5291]

@@monsieurexcel7721 a vous merci!!

[@soficomconsultingsarl7751]

FÉLICITATIONS

[@khaledbouchentouf2845]

Merci pour le tutoriel . Est-ce qu'on peut envisager de mettre 2 niveaux 1? (conjoints par exemple)

[@monsieurexcel7721]

Bonsoir, non désolé. Mais vous pouvez éventuellement utiliser le niveau 1 pour créer un titre et ensuite utiliser les niveaux 2.

[@benzitounemourad4274]

Grand merci, ça ma bcp aider dans mon travail. Est il possible d'insérer (automat) des photos du personnel à notre organigramme? merci d'avance

[@monsieurexcel7721]

Merci pour votre retour, je suis content d'avoir pu vous aider. Oui c'est possible, et d'ailleurs merci pour l'idée (je vais certainement créer une nouvelle vidéo sur le sujet). J'ai "bricolé" un peu le code VBA pour pouvoir afficher des photos stockées dans des dossiers. Il y a deux choses à faire : 1) Dans la colonne E, il est nécessaire d'insérer le nom de vos photos. Exemple : si votre photo s'appelle "François PAUMIER.jpg", veuillez indiquer François PAUMIER dans la cellule correspondante. Je vous conseille de faire un essai avec une photo en la renommant "essai.jpg" et en indiquant "essai" dans les cellules de la colonne E. 2) Vous pouvez ensuite remplacer le code VBA par celui ci-dessous. /!\ Il y a une chose à modifier dans le code. Il faut bien penser à modifier le chemin d'accès du dossier dans lequel se trouve vos photos, pour moi c'est : "C:\Users\MaximeL\Downloads\test\". Remplacez donc ceci par le votre. Si besoin vous pouvez me contacter par mail : [e-mail] Bonne soirée Sub Macro1() Dim ogSALayout As SmartArtLayout Dim QNode As SmartArtNode Dim oShp As Shape Dim QNodes As SmartArtNodes Dim t As Integer Set ogSALayout = Application.SmartArtLayouts(91) Set oShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(ogSALayout) Set QNodes = oShp.SmartArt.AllNodes Set QNode = oShp.SmartArt.AllNodes.Add 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 With QNodes(Range("B" & i)).Shapes.Item(2).Fill .Visible = msoTrue .UserPicture "C:\Users\LucanoM\Downloads\test\" & Range("E" & i) & ".jpg" .TextureTile = msoFalse End With 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 End Sub

[@kawtaragouzzal2108]

Stp ,tu peux m'envoyer le fichier excel à [e-mail] et merci ☺️

[@ffmmx001]

bonjour, si je modifie le SmartArtLayouts(92) en (5), ça ne marche pas. Est-il possible d'avoir une modification du code. merci F.FAIVRE

[@monsieurexcel7721]

Bonjour, pourquoi souhaitez remplacer 92 par 5 ?

[@ffmmx001]

@@monsieurexcel7721 bonjour pour faire le modèle liste N°6

[@ffmmx001]

@@monsieurexcel7721 bonjour je vous envoie par email le modèle de SMartArt

[@frerabe9043]

Bjr, le lien pour le macro svp merci

[@monsieurexcel7721]

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"

[@SirioNova]

Bonjour Maxime, Je rencontre la même erreur de compilation que Ben S : étiquette non définie sur la ligne "On Error GoTo Erreur". merci pour votre aide.

[@monsieurexcel7721]

Bonjour Fabrice, Dans le cas de Ben S, l'erreur venait du fait qu'il manquait 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 Maxime

[@danielvantomme9334]

Bonjour est-il possible de recvoir le fichier merci

[@monsieurexcel7721]

Bonjour, oui avec plaisir. Envoyez moi un mail svp : [e-mail]

[@fabricemenuet7039]

Bonjour, Merci pour la vidéo ! Existe t il un code complémentaire permettant d'affecter la couleur d'une cellule à la couleur d'une forme smart art? Ex si B3 est bleue, alors la case représentant la personne dans smart art sera aussi de la même couleur. Merci encore

[@monsieurexcel7721]

Bonsoir, merci pour votre message. Oui en effet, j'ai modifié le code VBA pour inclure le changement de couleur. Je vous l'ai envoyé à l'instant par mail. Bonne soirée,

[@ambroisemarche5128]

Bonjour, Votre programme marche a merveille mais est il possible d’adapter la taille des cases au texte? Car lorsque je fais des cases avec trop de choses écrites dedans le texte sort des cases et je dois ajuster la taille des cases à la main.

[@monsieurexcel7721]

Bonjour, non malheureusement la taille des blocs ne peut pas s'adapter à la longueur du texte. Désolé.

[@ambroisemarche5128]

@@monsieurexcel7721 oh dommage… merci de votre réponse!

[@fredericlabat9346]

Bonjour, super tuto ! Je voudrais savoir s'il a la possibilité d'avoir uniquement la bouton pour générer l'organigramme ainsi que l'organigramme sur une feuille Excel sans le tableau à coté qu'il faut mettre en case B3 ?

[@monsieurexcel7721]

Bonjour, merci :) Oui c'est possible, si vous voulez je peux vous envoyer par mail la macro modifiée. Est-ce que vous pouvez m'envoyer un mail svp ? [e-mail]

[@fredericlabat9346]

@@monsieurexcel7721 Je vous ai transmis un mail si vous pouvez me transmettre la macro approprié à mon utilisation svp.

[@khalilmohamed944]

@@monsieurexcel7721 salut

[@sonialecerf6891]

Bonjour , et merci pour cette video. Je suis sous word 2019 , et lorsque je lance la macro j'ai une erreur variable non définie pour ogShp Merci d'avance,

[@monsieurexcel7721]

Bonsoir, merci pour votre message. Cela arrive avec certaines versions d'Excel. Normalement si vous remplacez "ogShp" par "oShp" dans le code cela devrait résoudre l'erreur. "ohShp" apparaît à 2 endroits dans la macro. Bonne soirée

[@mohamedirafa2045]

Bonjour comment on fait pour générer une tableau

[@monsieurexcel7721]

Bonjour, Il n'est pas nécessaire de générer un tableau, vous pouvez directement entrer le texte et les valeurs dans les cellules de la feuille Excel.

[@Jesuisbon9]

bonjour, cela ne fonctionne pas. Cela me dit :''erreur de compilation..type défini par l'utilisateur non défini..merci de me répondre.

[@monsieurexcel7721]

Bonsoir, 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" Si oui, il est possible que le problème vienne de votre version d'Excel, quelle version avez-vous svp ? Je reste à disposition si besoin [e-mail] Bonne soirée Maxime LUCANO

[@Jesuisbon9]

@@monsieurexcel7721...oui, bonjour merci de me répondre.... j'ai entré le code ....toujours le meme message d'erreur..

[@Jesuisbon9]

je suis comme bloqué a ce niveau...

[@Jesuisbon9]

on dirait qu'il me bloque a ce niveau.....Dim ogSALayout As SmartArtLayout

[@monsieurexcel7721]

@@Jesuisbon9 Quelle est votre version d'Excel svp ? Excel 2007 ? Si oui, c'est sûrement la raison pour laquelle le type défini n'est pas fonctionnel.

[@Neab-g7v]

Bonjour. Très bonne methode pour l'organigramme. Serait-il possible d''avoir la formule pour a macro? merci

[@monsieurexcel7721]

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"

[@plaisir_gang9844]

Bonjour Monsieur merci pour votre vidéo. Je suis actuellement entrain de faire un travail important mais je rencontre un problème lorsque je clic sur le bouton ça charge et ferme mon excel je ne sais pas peut-être est ce du au nombre important de niveaux

[@monsieurexcel7721]

Bonsoir, merci pour votre commentaire. Cela peut en effet dépendre du nombre d'employés que vous souhaitez afficher dans l'organigramme. Combien avez vous de lignes / d'employés dans votre tableau ?

[@plaisir_gang9844]

Merci pour votre retour. J en ai 150

[@monsieurexcel7721]

@@plaisir_gang9844 Je pense que le problème vient donc de là, le temps de calcul doit être trop long. J'avais fait des essais avec environ 30 employés mais je n'étais jamais allé au delà. L'idéal serait de "découper" votre organigramme en sous-organigrammes par service/département. Passez une bonne journée.

[@plaisir_gang9844]

@@monsieurexcel7721 merci énormément. Bien à vous !

[@rosveltmadiba5612]

Magnifique comme astuce surtout la possibilité de changer de niveau et mettre à jour. Vous faites un travail formidable. Pourrai-je avoir le code de la macro svp ?

[@monsieurexcel7721]

Bonsoir, merci beaucoup pour votre message. Vous trouverez 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"

[@oliviervincenot6007]

Bonjour, tout d'abord, mes félicitions pour la qualité de vos tutos (fonds et forme) .pourrais je avoir le code VBA à modifier pour ajouter les couleurs.svp? merci beaucoup

[@monsieurexcel7721]

Bonsoir, merci pour votre message. Je vous ai envoyé à l'instant par mail des explications et la macro à modifier. Passez une bonne soirée.

[@oliviervincenot6007]

bonsoir, je vous remercie pour votre réponse cependant je n’ai pas encore reçu de mail

[@monsieurexcel7721]

@@oliviervincenot6007 Bonjour, pourriez-vous m'envoyer un mail à l'adresse ci-dessous svp ? [e-mail]

[@oliviervincenot6007]

@@monsieurexcel7721 C’est fait à l’instant je vous transférer le mail que je vous avais déjà envoyé à cette même adresse mail Bonne soirée

[@monsieurexcel7721]

@@oliviervincenot6007 Il y a eu un échec lors de l'envoi de mon précédent mail. Je vous l'ai renvoyé à l'instant. Bonne journée

[@redabibeche3879]

Le code ne pas copie a ce format

[@CyrilZAREVAC]

Bonjour, Super Tuto. Merci pour toutes ces videos. Malheureusement la macro ne fonctionne pas .... pourriez vous m'envoyer le fichier excel de la demo ? Merciiii

[@autoroussillon6077]

Je tenais à vous remercier, je n'ai aucune formation Excel, et vous venez de me permettre de faire un organigramme au top. Merci

[@monsieurexcel7721]

Super, merci beaucoup pour votre retour. Passez une bonne journée.

[@faridabenchalal2680]

Bonjour Merci pour votre vidéo, j'ai une petite question. Je génère un fichier CSV à travers une base de données contenant des tâches découpée selon une hiérarchie structurée, je souhaite faire une macro qui permet de visualiser cette hiérarchie du moment qu'elle est pas très visible sur le fichier csv. Je souhaiterais que vous m'orienter sur la démarche à suivre. Je suis nouvelle sur VBA Merci par avance

[@monsieurexcel7721]

Bonjour, Merci pour votre message. Afin de pouvoir vous aider au mieux, pourriez-vous m'envoyer le fichier .CSV ou une capture d'écran par e-mail svp ? Et si possible, un exemple de ce que vous aimeriez obtenir (hiérarchie à visualiser). [e-mail] Cordialement, Maxime LUCANO

[@enricoronconi6960]

Bonjour , Très intéressant, ou trouvé t’on le code ?

[@monsieurexcel7721]

Bonjour, vous trouverez ci-dessous le code : 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"

[@enricoronconi6960]

@@monsieurexcel7721 merci beaucoup, je vais tester

[@benhkiko]

Excellent travail , je ne vois pas la macro VBA pour la copier svp

[@monsieurexcel7721]

Bonjour, merci pour votre commentaire Ci-dessous la macro :

[@monsieurexcel7721]

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"

[@benhkiko]

@@monsieurexcel7721 Merci beaucoup pour votre reponse rapide, ma macro est reussie sauf le layout qui est different et j'arrive pas a le changer au meme format que le votre

[@monsieurexcel7721]

​@@benhkikoNormalement l'organigramme est directement généré avec le même format que celui dans la vidéo. Si vous souhaitez modifier les couleurs (comme sur la vignette de ma vidéo), sélectionnez votre organigramme et allez dans "Création" puis "Modifier les couleurs". Vous pouvez si besoin m'envoyer une photo de votre organigramme par mail "[e-mail]"

[@benhkiko]

@@monsieurexcel7721 merci encore une fois pour votre reponse, est ce que je peux vous contacter par email, je voudrais creer une organigramme dynamique avec plus de 300 employes, est ce que c'est faisable avec votre macro?

[@elodiedubuisson6029]

le code ci dessous ne fonctionne pas pour moi

[@monsieurexcel7721]

Bonjour, Est-ce que vous avez un message d'erreur ? Qu'est-ce qui ne fonctionne pas ? Merci d'avance pour votre retour Maxime

[@elodiedubuisson6029]

Erreur de compilation : for sans next Message sur votre mail pour plus de détails... Merci à vous!

[@marceltchanvoedo4221]

Bonjour, merci pour la vidéo. svp, puis-je avoir le fichier excel par mail? Merci

[@monsieurexcel7721]

Bonsoir, je vous ai envoyé à l'instant le fichier par mail :)

[@ibrahim-ir1xv]

super bien. Seulement à la dernière étape, je me suis planté. Quand j'ai cliqué sur le bouton de commande, rien. J'ai du raté une étape

[@agatheperier5945]

Bonjour, J'ai réalisé le travail jusqu'à insérer le bouton mais quand j'ai cliqué, mon fichier excel, c'est fermé? et avant ça le code ne marchait pas.. Pourriez-vous m'aider s'il vous plaît? Bien cordialement

[@monsieurexcel7721]

Bonjour, Oui pas de problème, pourriez-vous m'envoyer une capture d'écran du message d'erreur qui empêche le code de fonctionner svp ? [e-mail] Si besoin, je peux aussi vous envoyer par e-mail le fichier que j'ai utilisé dans la vidéo. Cordialement,

[@manalramzi5022]

J'ai réalisée le travail jusqu'à insérer le bouton mais quand je le cliqué il m'ont ouvre la fenêtre de visual basic et me dire qu'il y a un errer de complication (type defini par l'utilisateur non défini) J'espère que tu me réponds parce que je suis vraiment besoin de faire cette organigramme

[@manalramzi5022]

@@monsieurexcel7721 🙏

[@monsieurexcel7721]

@@manalramzi5022 Bonjour, Est-ce que vous avez bien les deux lignes de code ci-dessous à la fin de votre macro (dans Visual Basic) ? Exit Sub Erreur: MsgBox "Une erreur est survenue" Si non, il est nécessaire de les ajouter entre "Next i" et "End Sub" : cela devrait régler le message d'erreur. N'hésitez pas à revenir vers moi si jamais cela ne résout pas le problème.

[@urphee100]

Bonjour avant tout grand merci pour vos vidéos très claires , pouvez vous envoyer le code source, je n’arrive pas à le sélectionner pour le copier.

[@monsieurexcel7721]

Bonjour, merci beaucoup pour votre message. Est-ce que vous pourriez svp m'envoyer un mail pour que je puisse vous faire suivre le code svp ? Merci, bonne journée. [e-mail]

[@maiden06200]

Bonjour, superbe vidéo mais j'ai le message "Une erreur est survenue". Je suis sur Excel Office Professional Plus 2016

[@thomastassot3919]

bonjour merci pour votre tableau c'est pile ce dont j'ai besoin. Pouvez vous me faire parvenir votre fichier

[@CybeleRioux]

Merci pour cet outil, ça fonctionne bien et c'est très utile!

[@monsieurexcel7721]

Merci beaucoup pour votre retour, passez une bonne fin de journée. Cordialement, Maxime LUCANO

[@ameliecapistran9309]

Bonjour, J'adore votre vidéo, mais comme plusieurs j'ai un soucie avec la macro, j'ai un message d'erreur "Erreur de compilation: Étiquette non définie" et la ligne "On Error GoTo Erreur" est highlighter. Merci pour votre aide

[@monsieurexcel7721]

Bonsoir, merci beaucoup. Je pense qu'il vous manque une partie du code VBA, avez-vous bien copié les 2 lignes ci-dessous ? (juste avant "End Sub") Exit Sub Erreur: MsgBox "Une erreur est survenue"

[@ameliecapistran9309]

@@monsieurexcel7721 Bonjour, non il était après, j'ai fait la correction et maintenant, mon logiciel redémarre. Si vous pensez au mot Bizarre, ne vous inquiété pas dans mon cas c'est normale 🤭

[@damienaudema7886]

Bonjour, j'essaie de modifier la macro pour modifier le niveau 3 en position verticale. Je n'y arrive pas... Vous auriez un tuyau svp? Merci !

[@monsieurexcel7721]

Bonjour, pourriez-vous m'envoyer une capture d'écran du résultat que vous souhaitez obtenir svp ? Merci d'avance [e-mail]

[@brunowiz23]

@@monsieurexcel7721 Bonjour et merci beaucoup pour cette macro. je suis aussi intéressé pour savoir si le niveau 3 peut être présenté d'emblée en vertical (les boites les unes sous les autres, sous le niveau 2). Car sinon l'organigramme est très très très large. Sinon, tant pis, je me débrouille en sélectionnant un autre smart art (soit "organigramme" soit "organigramme avec demi-cercles", qui ordonnent les boites comme je veux).

[@monsieurexcel7721]

@@brunowiz23 Bonjour, merci pour votre message. Non malheureusement avec le type d'organigramme qui est pré-paramétré dans la macro, il n'est pas possible de les afficher verticalement. Pour contourner cela, vous pouvez modifier la ligne de code VBA ci-dessous : (en remplaçant 92 par 88, cela changera le type d'organigramme) Set ogSALayout = Application.SmartArtLayouts(88) Passez une bonne journée Maxime LUCANO

[@brunowiz23]

@@monsieurexcel7721 super, quelle réactivité !

[@motg6511]

Bonjour, je vous félicite pour votre vidéo mais j'ai un souci , j'ai bien copié votre macro mais j'ai un message d'erreur " Erreur de compilation Type défini par l'utilisateur non défini " et ma macro ne s'exécute pas. Que puis je faire ? Merci

[@monsieurexcel7721]

Bonjour, et merci pour votre commentaire. Est-ce que vous pourriez m'indiquer la ligne de la macro qui génère l'erreur svp ? (normalement elle est surlignée). Ou sinon vous pouvez aussi m'envoyer une photo par email : [e-mail] comme ça je regarderai en détail. Merci, bonne journée

[@motg6511]

Je vous envoie une capture d'écran par mail. Merci

[@EricSZALAI]

bonjour, merci encore pour ce magnifique tutoriel ... parcontre votre code VBA ne focntionne pas, pourriez vous svp m'envoyer un code qui fonctionne

[@monsieurexcel7721]

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

[@benzitounemourad4274]

je ne trouve pas le code vba à télécharger!!

[@monsieurexcel7721]

Ci-dessous le code VBA, n'hésitez pas si besoin : Dim ogSALayout As SmartArtLayout Dim QNode As SmartArtNode Dim QNodes As SmartArtNodes Dim t As Integer 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

[@benzitounemourad4274]

@@monsieurexcel7721 formidable, très réussi, merci infiniment

[@redabibeche3879]

@@monsieurexcel7721 please send

[@monsieurexcel7721]

@@redabibeche3879 Hello, If you want I can send you the Excel file. Please send me an email at : [e-mail]

[@fatihaguessoum490]

@@monsieurexcel7721 bonjour svp vous pouvez m'envoyer le code sur mon email Merci beaucoup j'adore se que vous faites mon email [e-mail]

[@katiazalc9226]

Bonjour Monsieur Excel. Merci beaucoup pour ce tuto! Tout a bien fonctionné, seulement mon organigramme est tout ratatiné et même en agrandissant il reste tout petit. Avez vous une solution? Je vous remercie pour votre aide. Katia

[@monsieurexcel7721]

Bonjour, merci à vous pour votre retour. Combien d'employés avez-vous sur cet organigramme ? Pourriez-vous s'il vous plaît m'envoyer une photo de l'organigramme par mail svp ? Vous pouvez si besoin masquer les nom/prénoms des employés. Merci, Maxime

[@katiazalc9226]

@@monsieurexcel7721 Merci pour ce retour ultra rapide, je vous envoi un mail avec les explications. Encore merci!

[@MPAILL]

Bonjour, la vidéo est vraiment très clair, seulement l'organigramme ne veut pas fonctionner cela m'indique "impossible d'exécuter la macro.....".

[@monsieurexcel7721]

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 ?

[@LolaPacini]

Pour moi ca n'a pas fonctionner le bouton

[@monsieurexcel7721]

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

[@LolaPacini]

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

[@kouakouachelengoran2951]

bonjour je narrive pas avoir la la macro

[@monsieurexcel7721]

Bonjour, Ci-dessous la macro, n'hésitez pas si besoin. 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"

[@ernestdiarra1699]

@@monsieurexcel7721 Super boulot. Je voudrais avoir le fichier Excel

[@monsieurexcel7721]

@@ernestdiarra1699 Merci pour votre message. Pouvez-vous m'envoyer un mail pour que je vous envoie le fichier svp ? [e-mail]

[@Theopl6]

Bonjour est il possible de m'envoyer le code source de la macro par e-mail ? Merci bien

[@monsieurexcel7721]

Oui pas de problème, envoyez moi un mail à l'adresse ci-dessous : [e-mail]

[@marie-amydoukoure1114]

Monsieur Excel, a la dernière étape j'ai un message d'erreur... j'ai essayé d'effacer une partie de votre code qui était indiqué comme "erreur" en rouge, et quand je clique sur le bouton ça ferme ma page excel automatiquement. Je suis très embêtée car je suis à la dernière étape... Au secours....

[@marie-amydoukoure1114]

Je vous ai envoyé par mail mon fichier Excel, ainsi que les copies d'écrans du visual basic. Je compte vraiment sur votre retour. Merci d'avance.

[@monsieurexcel7721]

@@marie-amydoukoure1114 Bonsoir, Merci pour votre message. Je vous ai répondu à l'instant par mail. Cordialement,

[@yukitachibana4215]

Vidéo ludique et très utile, merci !

[@monsieurexcel7721]

Bonjour, merci pour votre commentaire. A bientôt, Maxime

[@benzitounemourad4274]

Très fort!! merci beaucoup

[@monsieurexcel7721]

Merci à vous pour le commentaire Maxime

[@florentinguillemard2811]

Bonjour excellent travail ! Cela va sûrement m’aider. Question concernant les couleurs que l’on veut attribuer à l’organigramme : je dois mettre à jour régulièrement un organigramme et donc à chaque fois remettre manuellement les couleurs... peux-t-on insérer une autre colonne avec des couleurs en colonne E pour qu’il les insère automatiquement dans l’organigramme ? Merci

[@monsieurexcel7721]

Bonjour, merci beaucoup pour votre message. Oui c'est possible, il faut que j'adapte un peu la macro. Est-ce que vous pouvez m'envoyer un mail svp ? [e-mail] Je vous enverrai par mail le code modifié. Maxime LUCANO

[@chamshornn2224]

@@monsieurexcel7721 Bonjour je pourrais également avoir le code modifié svp?

[@monsieurexcel7721]

@@chamshornn2224 Bonjour, oui pas de problème. Pouvez-vous me donner votre adresse mail ou m'envoyer un mail svp ? [e-mail]

[@kyannlevybrou6653]

Merci beaucoup pour le tutoriel. Il est fabuleux! J'ai pu me faire des organigrammes rapides et bien présentés! Par contre, je veux pouvoir insérer ces organigrammes dans un userform. Mais je reste bloqué. Avez vous un code pour m'aider? Merci d'avance!

[@monsieurexcel7721]

De rien. Si vous souhaitez les insérer dans des userforms, le plus simple est d'ajouter une macro qui va faire une capture écran de votre organigramme et l'enregistrer en tant que photo. Ainsi, vous pourrez automatiquement ajouter la photo de votre organigramme dans un userform. (vous trouverez facilement sur Internet les macros correspondantes). Merci

[@SamSung-et3dp]

Comment creer l'espace des données ?

[@ffgymgafhn5111]

Bonjour, Je vous remercie pour ce tuto, très intéressant. Je n'ai pas trouvé le code...

[@monsieurexcel7721]

Bonsoir, merci pour votre message. Ci-dessous le code : 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"

[@user-pl6ho4mw4m]

Bonjour , Votre vidéo est trés bien faite , seulement j'ai un soucis à la fin quand je clique sur le bouton, je vous ai envoyé un mail à ce sujet Bonne journée

[@mohamedbouhadjela2546]

Bonjour est-il possible de m'envoyer le code source de la macro par e-mail? Je viens de vous envoyer un-Mail sur votre boite Merci bien

[@monsieurexcel7721]

Bonjour, envoyé à l'instant. Bonne journée

[@magalirobert9005]

Le code c'est le (8... En dessous du descriptif ? Sinon merci bcp pour votre vidéo

[@monsieurexcel7721]

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"

[@magalirobert9005]

Merci de votre réponse super sympa

[@JPSonicHD]

Bonjour et merci pour ce super tuto. Votre macro VBA fonctionne parfaitement et simplifie vraiment la création des Organigrammes. Je vous ai adressé un mail afin d'obtenir le code VBA modifié avec les couleurs et une petite question. Je vais tester votre code avec 150 personnes, le gros du travail est d'ordonner correctement ces personnes par niveau dans la liste. Top explications, top vidéo !!! un abonné de +

[@GéraldineCHEMIN]

Bonjour, merci beaucoup pour la vidéo, ça m'a beaucoup aidé. Sauriez vous comment faire pour intégrer dans la macro, le titre de mon onglet Excel en titre de mon organigramme ? Vous auriez une astuce ? Merci encore :)

[@monsieurexcel7721]

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