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.
Ca fonctionne bien, mais j'aimerai ne pas avoir à sélectionner la série, mais modifier directement sa valeur.
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
J'essaie donc de faire comme suit:
Ca bugge à la 1ère ligne et je ne comprends pas où est mon erreur.
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
Quelqu'un peut-il m'aider ?
Merci d'avance.
Partager