Bonjour,

J'essaie de modifier la couleur d'une série d'un graphique en fonction de la valeur d'une variable "Couleur".

J'ai fait un premier jet en modifiant ce que me proposait l'outil de création automatique de macro.

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
Sheets("Feuille 1").ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
 
    With Selection.Interior 
        Select Case Couleur
            Case "Vert"
                .ColorIndex = 4
            Case "Jaune"
                .ColorIndex = 6
            Case "Orange"
                .ColorIndex = 45
            Case Else 'Rouge
                .ColorIndex = 3
        End Select
               .PatternColorIndex = 2
        .Pattern = xlSolid
    End With
Ca fonctionne bien, mais j'aimerai ne pas avoir à sélectionner la série, mais modifier directement sa valeur.

J'essaie donc de faire comme suit:

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
Set Serie1 = Sheets("Feuille 1").ChartObjects("Chart 1").SeriesCollection(1)
 
With Serie1.Interior
Select Case Couleur
            Case "Vert"
                .ColorIndex = 4
            Case "Jaune"
                .ColorIndex = 6
            Case "Orange"
                .ColorIndex = 45
            Case Else 'Rouge
                .ColorIndex = 3
        End Select
               .PatternColorIndex = 2
        .Pattern = xlSolid
End With
Ca bugge à la 1ère ligne et je ne comprends pas où est mon erreur.

Quelqu'un peut-il m'aider ?

Merci d'avance.