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, 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
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 RUclips. Bravo et merci!
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 !!!
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
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 +
Bonjour, merci beaucoup, cela fonctionne très bien à condition que les données commencent bien en cellule B3 (exactement comme dans la vidéo). Pour fonctionner (sur mon excel en tout cas) le script se termine par Exit Sub Erreur: MsgBox "Une erreur est survenue" End Sub
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
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 ?
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
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
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?
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
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 ?
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 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
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 ?
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
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 Monsieur Excel, Merci pour cette vidéo! Elle est extrêmement bien faite :) Pourriez-vous svp m'indiquer si il est possible de déterminer une mise en page du Smart Art spécifique? En effet, j'opère régulièrement des modifications dans mon organigramme et je dois la revoir à chaque changement... Merci infiniment! Aurélie
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
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 ?
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 ! Très bonne vidéo, merci ! Je me suis abonné pour plus de bon contenus comme celui-là! J'ai une question, serait-ce possible d'ajouter des % sur les lignes qui lient un onglet vers un autre ? Comme pour un organigramme détaillant l'actionnariat d'une entreprise et leur % de détention. Merci !
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.
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
Super vidéo! Merci. Est-il possible de rajouter une option 'dépliante' sur l'une des cases une fois que le graph est crée ou du moins lorsqu'on clique dessus? (J'ai un graph qui représente une hiérarchie avec des sous-niveaux et j'aimerais faire apparaître un autre shéma une fois que je clique dessus) =)
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
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!
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 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 ?
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)
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 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
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
Bonjour, Je vous remercie pour ce tuto vraiment top, je rencontre en revanche un petite difficulté, je me suis permise de vous adresser directement un mail .. merci à vous, Aurélie
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
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
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"
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
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,
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 ?
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.
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.
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 Monsieur Excel, Merci pour votre travail, J’ai besoin d’ajouter des cases dans l’organigramme smart pour calcule le nombre et les couts par catégorie du personnel dans mon organigramme pari exemple M. Jaune, Chef Département, Catégorie 1 = 250 Euro F. Michel, Cadre Sup, Catégorie 2 = 180 Euro Comment afficher ces informations sur l'organigramme, merci
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
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
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
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. 😢
@@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. 🙏
Bonjour, un grand merci pour la vidéo! Cependant, lorsque je clique sur le bouton pour faire fonctionner ma macro, le fichier excel se ferme au complet.. pouvez-vous m'aider svp? Merci!
@@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 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.
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 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
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
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 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 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
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 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
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 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.
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 Monsieur Excel j'ai un souci lorsque j'ouvre Visual Basic, sur la partie droite de la fenêtre qui s'ouvre tout est grisé. J 'ai fait une manip et la fenêtre s'est ouverte mais en haut Sub Macro1 () est surligneur en jaune...et quand je ferme VB j'ai un avertissement "Cette commande va arrêter le débogueur"et une fois le bouton créé j'ai une erreur de compilation Type défini par l'utilisateur non défini. Pouvez-vous m'aider ?
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, 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
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
@@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.
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....
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
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
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,
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
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
Super votre tuto - merci :) Bonjour cela fait un moment que je cherchais un moyen pour faire mes organigrammes automatiquement - j'ai testé votre macro mais j'ai eu un message d'erreur. J'ai fait plusieurs tentatives du coup je me retrouve avec plusieurs macro (macro 1 - macro 2 ....) et je m'y perds - vous pouvez m'aider ?
@@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
@@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
@@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
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"
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 beaucoup pour ce tuto, top. Je souhaiterais ajouter le niveau assistante entre le niveau 1 et 2, similaire au modèle pré-défini dans SmartArt Hiérarchie (niveau déporté vers la gauche). Merci .
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
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?
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, 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, c'est juste génial comme tuto. ça m'a fait du bien!
Merci infiniment cher monsieur, avec une explication claire comme l'eau de source....
Merci beaucoup pour votre commentaire :)
Bonne journée
Maxime LUCANO
Merci beaucoup!! Vous m'avez sauvé !!
Merci beaucoup pour ce tutorial qui m'a été très utile!!!
Un gros merci, c'est très bien expliqué et facile à reproduire
Merci beaucoup pour votre message !
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 RUclips. Bravo et merci!
Je vous remercie beaucoup pour votre commentaire, cela fait plaisir d'avoir ce genre de retour. Merci, passez une excellente soirée
C’est vraiment utile, merci beaucoup 😊 🙏
Merci 😊
Merci beaucoup pour la vidéo !
Merci excellent tuto
Merci pour le tutoriel ! Très utile et simple à réaliser.
Merci beaucoup
Maxime
Bravo et merci
FÉLICITATIONS
Je tenais à vous remercier, je n'ai aucune formation Excel, et vous venez de me permettre de faire un organigramme au top.
Merci
Super, merci beaucoup pour votre retour.
Passez une bonne journée.
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 !!!
Super, merci à vous pour votre message !
Passez une bonne soirée,
Maxime
merci
merci beaucoup! Impeccable!!
Super, merci pour votre message🙂
@@monsieurexcel7721 a vous merci!!
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
Très fort!! merci beaucoup
Merci à vous pour le commentaire
Maxime
Merciiii
Vidéo ludique et très utile, merci !
Bonjour, merci pour votre commentaire.
A bientôt,
Maxime
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 +
Bonjour, merci beaucoup, cela fonctionne très bien à condition que les données commencent bien en cellule B3 (exactement comme dans la vidéo). Pour fonctionner (sur mon excel en tout cas) le script se termine par
Exit Sub
Erreur: MsgBox "Une erreur est survenue"
End Sub
Merci pour cet outil, ça fonctionne bien et c'est très utile!
Merci beaucoup pour votre retour, passez une bonne fin de journée.
Cordialement,
Maxime LUCANO
Merci pour le tutoriel ! Juste une question : y aurait-il possibilité d'ajouter le niveau assistante dans la macro ?
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
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
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 ☺️
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 ?
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
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
Comment je vais pourvoir procéder pour réaliser des arbre à objectifs avec Excel
Merci de m'aider
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?
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!!!
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 ?
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 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
Merci c est vraiment top !!!
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 ?
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 beaucoup pour votre vidéo très claire et explicite. Pouvez vous m'envoyer les codes utilisés avec mes remerciements anticipés
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 Monsieur Excel, Merci pour cette vidéo! Elle est extrêmement bien faite :) Pourriez-vous svp m'indiquer si il est possible de déterminer une mise en page du Smart Art spécifique? En effet, j'opère régulièrement des modifications dans mon organigramme et je dois la revoir à chaque changement... Merci infiniment! Aurélie
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
Salut ! J'ai eu Erreur de compilation: Variable non défini, j'utilise Office 2019. Comment résoudre ça ?
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 ?
Bonjour, oui, je travaille justement sur une nouvelle version de ce tutoriel.
Bonjour, merci pour cette vidéo. est-il possible de faire la même chose avec un graph smartart en liste de bloc simple ?
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 ! Très bonne vidéo, merci ! Je me suis abonné pour plus de bon contenus comme celui-là!
J'ai une question, serait-ce possible d'ajouter des % sur les lignes qui lient un onglet vers un autre ? Comme pour un organigramme détaillant l'actionnariat d'une entreprise et leur % de détention.
Merci !
Bonjour, merci pour votre message. J'ai essayé de faire quelques tests, malheureusement je n'ai pas trouvé de solution viable.
Bonne journée
Merci pour le tutoriel . Est-ce qu'on peut envisager de mettre 2 niveaux 1? (conjoints par exemple)
Bonsoir, non désolé.
Mais vous pouvez éventuellement utiliser le niveau 1 pour créer un titre et ensuite utiliser les niveaux 2.
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.
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!
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
Super vidéo! Merci. Est-il possible de rajouter une option 'dépliante' sur l'une des cases une fois que le graph est crée ou du moins lorsqu'on clique dessus? (J'ai un graph qui représente une hiérarchie avec des sous-niveaux et j'aimerais faire apparaître un autre shéma une fois que je clique dessus) =)
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
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
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!
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 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 ?
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, la vidéo est vraiment très clair, seulement l'organigramme ne veut pas fonctionner cela m'indique "impossible d'exécuter la macro.....".
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, je vous remercie pour cette vidéo pratique, mais je ne trouve pas le code du programme pour coller entre les deux SUB.
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 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
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
Bonjour, Je vous remercie pour ce tuto vraiment top, je rencontre en revanche un petite difficulté, je me suis permise de vous adresser directement un mail .. merci à vous, Aurélie
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
Bonjour,
Si notre tableau se situe à la ligne B20 et non B3, que faut-il changer sur le code ?
Merci
Bonsoir,
Il faut remplacer Range("B3") par Range("B20").
Ce changement sera à appliquer à plusieurs endroits dans le code,
Merci
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
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
Bonjour. Très bonne methode pour l'organigramme. Serait-il possible d''avoir la formule pour a macro? merci
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,
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
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,
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 ?
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.
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.
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. j'ai un souci avec le code... l'entête Sub macro1() s'affiche en jaune. pouvez-vous aider ? Merci
Bonjour, est-ce que vous obtenez un message d'erreur ? Votre macro se termine-t-elle bien avec "End Sub" ?
Merci, bon dimanche
Bonjour Monsieur Excel,
Merci pour votre travail,
J’ai besoin d’ajouter des cases dans l’organigramme smart pour calcule le nombre et les couts par catégorie du personnel dans mon organigramme
pari exemple
M. Jaune, Chef Département, Catégorie 1 = 250 Euro
F. Michel, Cadre Sup, Catégorie 2 = 180 Euro
Comment afficher ces informations sur l'organigramme, merci
Bonjour, votre code fonctionne-t-il sur MS 365?
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
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
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
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, un grand merci pour la vidéo! Cependant, lorsque je clique sur le bouton pour faire fonctionner ma macro, le fichier excel se ferme au complet.. pouvez-vous m'aider svp? Merci!
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 super tuto
Mais je n'arrive pas à créer un arbre à problème avec. Comment je dois faire aider moi
Bonjour, merci pour votre message.
Ce type de SmartArt n'est malheureusement pas adapté pour la réalisation d'arbre à problèmes.
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.
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 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
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!
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
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 🤭
Votre macro peut elle être utilisée avec d'autres données ?
Merci
Bonjour, oui normalement aucun problème. Quel type de données avez-vous en tête ?
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
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
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
bonjour j aimerai savoir s il vous plait à quelle moment je lance le smart art .ou bien on doit juste appliquer votre code macro .
Bonjour,
Vous n'avez pas besoin d'insérer un modèle SmartArt, la macro va automatiquement en ajouter un.
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
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 !
Bonjour. merci pour cette vidéo. le code ne marche pas ! puis-je avoir le code correcte ?
Bonsoir, le code est correct, avez-vous bien suivi les étapes ? Quel message d'erreur obtenez-vous ?
C'est sur quelle version d'excel, je suis sur 2007, je fais tout comme toi mais ça fonctionne pas.
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, superbe vidéo mais j'ai le message "Une erreur est survenue". Je suis sur Excel Office Professional Plus 2016
Bonjour,
Je suis sous google sheet est-il possible d'avoir la macro en version Javascript ?
Bonjour,
Non désolé,
Bonjour Monsieur Excel j'ai un souci lorsque j'ouvre Visual Basic, sur la partie droite de la fenêtre qui s'ouvre tout est grisé. J 'ai fait une manip et la fenêtre s'est ouverte mais en haut Sub Macro1 () est surligneur en jaune...et quand je ferme VB j'ai un avertissement "Cette commande va arrêter le débogueur"et une fois le bouton créé j'ai une erreur de compilation Type défini par l'utilisateur non défini. Pouvez-vous m'aider ?
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,
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
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.
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....
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,
Comment vous avez fait pour generer l’organigramme Svp?
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
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
Bonjour, Je vous remercie pour ce tuto, très intéressant. Je n'ai pas trouvé le code...
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 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.
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
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,
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, si je modifie le SmartArtLayouts(92) en (5), ça ne marche pas. Est-il possible d'avoir une modification du code. merci F.FAIVRE
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
bonjour
merci pour votre tableau c'est pile ce dont j'ai besoin. Pouvez vous me faire parvenir votre fichier
Comment creer le bouton ( generer l'organigramme ) qui est au dessous du tableau de base
Bonjour
Comment obtenir le code de la macro? Merci à vous
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.
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.
Bonjour, merci pour la vidéo. svp, puis-je avoir le fichier excel par mail? Merci
Bonsoir, je vous ai envoyé à l'instant le fichier par mail :)
Super votre tuto - merci :)
Bonjour cela fait un moment que je cherchais un moyen pour faire mes organigrammes automatiquement - j'ai testé votre macro mais j'ai eu un message d'erreur.
J'ai fait plusieurs tentatives du coup je me retrouve avec plusieurs macro (macro 1 - macro 2 ....) et je m'y perds - vous pouvez m'aider ?
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
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?
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, 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 !
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é !
Excuses, j'ai fini par trouver. Merci
Bonjour ,
Très intéressant, ou trouvé t’on le code ?
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
Le code c'est le (8... En dessous du descriptif ?
Sinon merci bcp pour votre vidéo
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
Merci beaucoup pour ce tuto, top. Je souhaiterais ajouter le niveau assistante entre le niveau 1 et 2, similaire au modèle pré-défini dans SmartArt Hiérarchie (niveau déporté vers la gauche). Merci .
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
Excellent travail , je ne vois pas la macro VBA pour la copier svp
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?