SmartArt avec VBA

Bonjour,

Je travail avec des SmartArt et j'ai actuellement une Macro qui me permet d'incrémenter un tableau avec le texte rouge contenu dans les formes de mon SmartArt.

Petit exemple pour mieux comprendre :

Pièce jointe 294977

Pour l'instant voici le code qui permet de réaliser ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Dim SA As SmartArt Dim i As Integer Dim j As Long   Set SA = Feuil1.Shapes(1).SmartArt j = 26 With SA For i = 1 To .AllNodes.Count With .AllNodes(i).TextFrame2.TextRange If .Font.Fill.ForeColor = 255 Then   Feuil1.Cells(j, 2) = .Text j = j + 1 End If End With Next i End With Set SA = Nothing End Sub

---

Je travail avec plusieurs couleurs et pour rendre mes supports plus visuel, je souhaiterais réaliser la même Macro mais en prenant en compte la couleur de la forme et non la couleur du texte.

Est-ce que cela est possible ? Comment faire ?

J'attends vos pistes.

Merci d'avance ;)

Ci besoin voici le fichier test que j'utilise :

Salut,

en pointant sur la shape, il te suffit de travailler avec

Code:

---

oShp.Fill.ForeColor.RGB = RGB(0,255,0)

---

Bonjour Jean-Philippe André,

J'ai fais quelques essais avec ton code mais je ne parvient pas à avoir un résultat satisfaisant. :?

Pourrais-tu me détailler un peu ta solution ?

Merci d'avance

Déjà je t'avais donnée le code que tu montre et ne sais pas l'adapter pour autre chose.

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To .AllNodes.Count With .AllNodes(i).Shapes If .Fill.ForeColor = 255 Then Feuil1.Cells(j, 2) = .TextFrame2.TextRange.Text j = j + 1 End If End With Next i

---

C'est si difficile d'apprendre?

Bonjour Mercatog,

Malgré de nombreux essais je n'ai jamais réussi à réaliser un code qui fonctionne.

On ne trouve que très peu d'informations sur les macros de SmartArt sur internet.

De plus, l'enregistreur de Macro n'est d'aucunes aide puisqu'il n'enregistre rien lorsqu'on modifie la mise en forme des SmartArt.

En réalisant des essais j'étais arrivé à un résultat ressemblant à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub testsmart2() Dim SA As SmartArt Dim i As Integer Dim j As Long   Set SA = Worksheets("9S 061").Shapes(1).SmartArt j = 26 With SA For i = 1 To .AllNodes.Count With .AllNodes(i).TextFrame2.TextRange     If SA.AllNodes(i).Shapes.Fill.BackColor.RGB = RGB(255, 0, 0) Then Worksheets("9S 061").Cells(j, 3) = .Text j = j + 1 End If End With Next i End With Set SA = Nothing End Sub

---

Cependant je suppose que BackColor ne correspond pas à la couleur de remplissage des formes car le code ne fonctionnait que lorsque je modifiais la couleur BackColor via VBA.

Bref j'ai posté sur le forum car je ne parvenais pas à trouver de solution tout seul.

Un grand merci à toi pour cette nouvelle aide. :roll:

:merci: de m'aider dans mon apprentissage :yaisse3:

Bonjour,

Smartart a une propriété color


Et puis SmartArt n'a pas de collection, ni de propriété allnodes()

Donc, ta boucle :

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To .AllNodes.Count With .AllNodes(i).TextFrame2.TextRange * * If SA.AllNodes(i).Shapes.Fill.BackColor.RGB = RGB(255, 0, 0) Then Worksheets("9S 061").Cells(j, 3) = .Text j = j + 1 End If End With Next i

---

Ne peut pas marcher

C'est impossible d'avoir :

Code:

---

Smartart.allnodes.count

---

ou

Code:

---

Smartart.AllNodes(i).Shapes.Fill.BackColor.RGB

---