VBA pour Smart Art

Bonjour à tous,
Voila mon problème je cherche à créer un graphique smart Art depuis un macro afin de lui affecter des valeurs sortie d'une macro plus important.
Mais malheureusement je n'arrive pas à trouver ce qu'il me faut pour avancer dans mon projet. Quelqu'un aurait-il la gentillesse de m'explique comment cela fonction. Ou encore mieux des liens vers des explications détaillé de leurs utilisation via VBA.
PS : Le graphique que j'ai l'intention d'utiliser du smart Art est le "Processus en Bloc continue" et j'ai besoins de travailler sur les textes en ajouter etc

Code:

---

1 2 3 4 5 6 7 8 9

Sub testgraphique() Dim oSALayout As SmartArtLayout Set oSALayout = Application.SmartArtLayouts(92) 'Prend la référence pour un graph "hiérarchie"   'Crée smartart Set oShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(oSALayout)   End Sub

---

Le code ci-dessus me permet de créer un graphique hiérarchie, mais je ne trouve pas la référence pour le graphique qu'il me faut. Si quelqu'un sait ou elles ce trouvent ça peut me permettre d'avancer.

En l'attente de votre aide cordialement, David

Salut,

que te donne l'enregistreur de macro ?

Rebonjour
jpcheck je dois t'avouer que je n'ai jamais utilisé l'enregistreur de macro... (je vais donc me renseigner avant de passer pour plus bête que je ne le suis)
Au final le graphique hiérarchie me convient étant donnée que j'avais mal compris la tache que je dois faire ^^
Je dois tracer arborescence d'un tableau excel qui présente un formulaire de question réponse

Voici le programme rédige par mes soins donc imparfait son mode de fonctionnement est le suivant:
- On pose une question à l'utilisateur placé dans la colonne question (ces réponses ne peuvent être que Yes No )
- On recherche la question dans la ligne
- un fois trouvé on descente de ligne jusqu’à trouver une cellule non vide
- et si ce n'est pas le résultat on lui pose la question suivante
- Si il tombe sur case renvoie L'utilisateur est envoyer dans un autre onglet avec une même forme de questionnaire

Le programme fonctionne bien pour le fichier qui lui destinée ( pas celui joint celui-la est un exemple de ça forme, je suis en stage j'ai pas le droit de vous le monter :'( )
Je cherche donc à en tracer l'arborescence si quelqu'un à des idées !

PS: jpcheck je vais faire des tests avec l'enregistreur de macro je te dis si j'aboutie à une solution ;)

Cordialement, Duetor

Bonjour à tous,

jpcheck tenté l'enregistreur de macro ben que très utile il ne m'a étais d'aucun secoure pour la macro que je tente de rédiger :'(

Voici ce que j'ai fait depuis la dernière fois:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub Créer_graphique() Dim oSALayout As SmartArtLayout Dim QNodes As SmartArtNodes Dim QNode As SmartArtNode   Set oSALayout = Application.SmartArtLayouts(92) Set oShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(oSALayout)   Set QNodes = oShp.SmartArt.AllNodes For i = 1 To 5 'supprime toutes les nodes de base oShp.SmartArt.AllNodes(1).Delete Next Set QNode = oShp.SmartArt.AllNodes.Add 'ajoute une node QNode.TextFrame2.TextRange.Text = "Stéfanie" 'ecris le texte Call Créer_Fils(QNode) End Sub       Sub Créer_Fils(Parent As SmartArtNode) Dim FNode1 As SmartArtNode Dim FNode2 As SmartArtNode 'va créer deux fils à mon parent Set FNode1 = Parent.AddNode(msoSmartArtNodeBelow) FNode1.TextFrame2.TextRange.Text = "de" Set FNode2 = Parent.AddNode(msoSmartArtNodeBelow) FNode2.TextFrame2.TextRange.Text = "monaco"   End Sub

---

Le premier Sub va créer mon graphique et l'initialiser.
Le deuxième va lui rajouter deux fils.

Mais mon problème et que je dois rappel cette fonction pour chacun de fils encore et encore ce qui emperchera de conserver mes liens si quelqu'un a une idée ingénieuse je suis preneur !

Cordialement, Duetor