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.

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.

@@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 : monsieur.excel.contact@gmail.com Par ailleurs, n'hésitez pas à m'envoyer une capture d'écran du message d'erreur que vous obtenez. Bonne journée

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

@@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. monsieur.excel.contact@gmail.com Bonne soirée, Maxime LUCANO

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

Merci beaucoup pour votre message !

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

Merci 😊

Merci beaucoup Maxime

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

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

Super, merci pour votre message🙂

@@monsieurexcel7721 a vous merci!!

Merci à vous pour le commentaire Maxime

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

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

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 : monsieur.excel.contact@gmail.com Merci, Maxime

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 : monsieur.excel.contact@gmail.com 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

Stp ,tu peux m'envoyer le fichier excel à agouzzalkawtar96@gmail.com et merci ☺️

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

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

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

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

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"

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 ? monsieur.excel.contact@gmail.com

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

@@monsieurexcel7721 salut

Merci pour votre commentaire, oui pas de problème. Vous trouverez ci-dessous le code VBA. Bonne soirée, Maxime 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.

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.

Bonjour, merci pour votre message. J'ai essayé de faire quelques tests, malheureusement je n'ai pas trouvé de solution viable. Bonne journée

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

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

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

Bonsoir, merci pour votre message :) Malheureusement non, je n'ai trouvé aucun moyen de créer cette fonctionnalité sur Excel, désolé Bonne soirée

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

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)

@@monsieurexcel7721 D'accord merci beaucoup 🙏🏾

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 ?

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"

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 ? monsieur.excel.contact@gmail.com Je vous enverrai par mail le code modifié. Maxime LUCANO

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

@@chamshornn2224 Bonjour, oui pas de problème. Pouvez-vous me donner votre adresse mail ou m'envoyer un mail svp ? monsieur.excel.contact@gmail.com

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

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). monsieur.excel.contact@gmail.com Cordialement, Maxime LUCANO

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"

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,

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.

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.

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

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 : monsieur.excel.contact@gmail.com comme ça je regarderai en détail. Merci, bonne journée

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

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. ☺

Bonjour, merci pour votre message. Je vous ai envoyé le fichier par mail. Bonne journée, Maxime

@@monsieurexcel7721 merci beaucoup pour votre aide !

@@monsieurexcel7721 Bonjour, j'ai le même problème. J'ai bien copié la macro et le fichier se ferme à chaque fois que j'appuie sur le bouton. Merci d'avance pour votre aide.

@@myriamcherkaoui8880 Bonjour, combien d'employés avez-vous dans votre organigramme ? Si vous voulez je peux vous envoyer mon fichier par mail (écrivez moi à l'adresse ci-dessous) monsieur.excel.contact@gmail.com

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

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

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

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

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"

@@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 🤭

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

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.

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

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

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 ?

Merci pour votre retour. J en ai 150

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

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

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

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

Bonjour, Non désolé,

Bonjour, Pourriez-vous m'envoyer une capture d'écran de la fenêtre Visual Basic s'il vous plaît ? Et si possible, également une capture d'écran du tableau que vous avez réalisé pour vos données. monsieur.excel.contact@gmail.com Si jamais, je pourrais aussi vous envoyer le fichier utilisé dans la vidéo. Bonne journée Maxime

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 ? monsieur.excel.contact@gmail.com Si besoin, je peux aussi vous envoyer par e-mail le fichier que j'ai utilisé dans la vidéo. Cordialement,

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

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

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.

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

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

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

@@oliviervincenot6007 Bonjour, pourriez-vous m'envoyer un mail à l'adresse ci-dessous svp ? monsieur.excel.contact@gmail.com

@@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

@@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

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"

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. monsieur.excel.contact@gmail.com

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

Bonjour, pourquoi souhaitez remplacer 92 par 5 ?

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

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

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 monsieur.excel.contact@gmail.com Bonne soirée Maxime LUCANO

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

je suis comme bloqué a ce niveau...

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

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

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

Le message d'erreur que j'ai est le suivant : one Errror GoTo Erreur : erreur de compilation Etiquette non définie

@@patriciavs1912 Bonsoir, désolé quant à ma réponse tardive. Je pense qu'il vous manque 2 lignes de code 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

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

@@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

Bonjour, pourriez-vous m'envoyer une capture d'écran du résultat que vous souhaitez obtenir svp ? Merci d'avance monsieur.excel.contact@gmail.com

@@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).

@@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

@@monsieurexcel7721 super, quelle réactivité !

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"

@@monsieurexcel7721 merci beaucoup, je vais tester

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

Bonjour, merci pour votre message. Malheureusement avec ce type d'organigramme et macro, ce n'est pas possible. Si vous voulez, je peux vous envoyer une autre version de mon fichier Excel qui prend en charge le niveau "assistant". monsieur.excel.contact@gmail.com

@@monsieurexcel7721 J'aimerais avoir aussi une version pareille qui prend en charge le niveau assistant.

Bonjour Chris, As-tu reçu la version qui prend en charge le niveau assistante? Je suis sans retour

Bonjour, merci pour votre commentaire 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"

@@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

​@@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 "monsieur.excel.contact@gmail.com"

@@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?