Parcourir les séries dans un graphiqueRésolu

Question

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...


Sub controlegraph()

Dim Rouge, Bleu, Complet As Variant
Dim i As Single
Dim Graph As ChartObject
Dim WS As Worksheet



 For Each WS In Worksheets

  
  
     Rouge = "Rouge :" & vbCrLf
     Bleu = "Bleu :" & vbCrLf

      For Each Graph In ActiveSheet.ChartObjects
   
        i = 1
    
        ActiveSheet.ChartObjects(Graph.Name).Activate
      
        
          '''Comment Parcourir l'ensemble des séries de valeurs contenues dans le graphique???
 
    
          If ActiveChart.SeriesCollection(i).Border.Color = RGB(255, 0, 0) Then
      
           Rouge = Rouge & ActiveChart.Name & "  " & ActiveChart.SeriesCollection(i).Name & vbCrLf
      
            ElseIf ActiveChart.SeriesCollection(i).Border.Color = RGB(0, 0, 255) Then
      
            Bleu = Bleu & ActiveChart.Name & "  " & ActiveChart.SeriesCollection(i).Name & vbCrLf
      
          End If
      
         
      
          i = i + 1
      
  
         
       
     
       Next
       
    
  Next

 Complet = Rouge & vbCrLf & Bleu
    
 MsgBox Complet, vbCritical, "Contrôle"
     

End Sub

cs_Jack · Accepted Answer

Salut

Tout est dans l'aide :
Les séries Series appartiennent à un objet collection qui s'appelle SeriesCollection.
Il te suffit donc de demander combien il y a de Series dans SeriesCollection :
    Dim oSerie As Series
    For Each oSerie In ActiveChart.SeriesCollection
        Debug.Print oSerie.Name
    Next
Oublie ChartObject

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

egeiL · Answer

Merci beaucoup pour ton aide, Bonne journée.

Parcourir les séries dans un graphique

2 réponses

Votre réponse

Discussions similaires