Discussion :

[maximelocatelli]

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 :



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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maximelocatelli]

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[maximelocatelli]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

de m'aider dans mon apprentissage

[clementmarcotte]

Bonjour,

Smartart a une propriété color


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

Donc, ta boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Smartart.allnodes.count

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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