Mise en forme graphique croisé dynamique

Bonjour à tous,

Je sais que la question de la mise en forme des graphiques croisés dynamique est récurrente, j'ai à peu près compris comment cela marchait à l'aide d'une macro, il me reste cependant un problème à résoudre:

Je souhaite créer une boucle qui va mettre en gras et lisser mes différentes courbes, le probleme est que les "ActiveChart.SeriesCollection(i).Select" parcouru dans la boucle n'existe pas tous (par exemple le "1" existe, pas le 2, mais le 3 oui)

Voici le code:

ActiveSheet.ChartObjects("Graphique 1").Activate

Dim i As Integer

For i = 1 To 25

'j'ai un problème pour écrire cela:

If (ActiveChart.SeriesCollection(i)) = Null Then

Next

Else

ActiveChart.SeriesCollection(i).Select

With Selection.Border

.ColorIndex = i + 5

.Weight = xlMedium

.LineStyle = xlContinuous

End With

With Selection

.Smooth = True

End With

Next

Merci d'avance pour votre aide, je propose d'autre part la mienne en ce qui concerne la question de la mise en forme des GCD.

Bonjour,

une autre solution, peut-être?

For Each sc In ActiveChart.SeriesCollection
    x = 1
    With sc
        With .Border
            .ColorIndex = x + 5
            .Weight = xlMedium
            .LineStyle = xlContinuous
        End With
        .Smooth = True
    End With
    x = x + 1
Next sc