Parcourir les séries dans un graphique

Bonjour,

Je dois contrôler la couleur des séries de mes graphiques, ou plutôt m'assurer qu'elle ne sont ni bleu, ni rouge...

Je n'ai qu'un seul soucis...enfin j'espère

Je ne sais pas comment parcourir chaque série...

Le code est dans le fichier joint

Merci d'avance.

Bonjour,

Essaie avec ce code :

Sub controlegraph()
Dim Rouge As String, Bleu As String, Complet As String
Dim Graph As ChartObject
Dim WS As Worksheet
Dim Sc As Series

Rouge = "Rouge :" & vbCrLf
Bleu = "Bleu :" & vbCrLf

For Each WS In Worksheets
    For Each Graph In WS.ChartObjects
        For Each Sc In Graph.Chart.SeriesCollection
            If Sc.Border.Color = RGB(255, 0, 0) Then
                Rouge = Rouge & Graph.Chart.Name & " Série : " & Sc.Name & vbCrLf
            ElseIf Sc.Border.Color = RGB(0, 0, 255) Then
                Bleu = Bleu & Graph.Chart.Name & " Série : " & Sc.Name & vbCrLf
            End If
        Next Sc
    Next Graph
Next WS
Complet = Rouge & vbCrLf & Bleu
MsgBox Complet, vbCritical, "Contrôle"
End Sub

Bonne journée

Désolé pour le temps de réponse, mais je tenais a te remercier, ca marche parfaitement.

Grace a çà j'ai même simplifier une autre partie de mon code

Bonne journée.