Salut à tous!

Concrétement, je dispose de deux series: la premiere est un budget, la seconde le cout reel de mes actions.
Si le cout depasse le budget j'aimerais le voir en rouge, en orange lorsqu'il est à plus ou moins 10%, et en vert lorsqu'il est bien en dessous.

Du coup il faudrait le signaler sur la légende aussi que les 3 couleurs concernent la même série...
Ci joint un code que j'ai trouvé pour cela et que j'ai un peu retouché, mais les conditions sur la comparaison ne m'inspirent pas du tt

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
18
19
20
21
22
23
24
Private Sub Chart_Reload()
ActiveChart.ChartTitle.Text = "Maintenance Cost"

Dim lngIndex As Long
On Error Resume Next
ActiveSheet.ChartObjects("Bilan des coûts").Activate
Application.ScreenUpdating = False
With ActiveChart.SeriesCollection(2)
For lngIndex = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.Values, lngIndex)
With .Points(lngIndex)
If a < "90% de la valeur de la serie 1 pour le meme point" Then
.Interior.Color = RGB(60, 200, 80)
ElseIf a > "110% de la valeur de la serie 1 pr le meme point) Then
.Interior.Color = RGB(230, 180, 70)
Else
.Interior.Color = RGB(255, 255, 255)
End If
End With
Next
End With
Application.ScreenUpdating = True

End Sub
Une idée pr ajuster les couleurs et les conditions????
Sinn à quoi servent les deux lignes suivantes qu'on retrouve au début et à la fin???
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
On Error Resume Next
Application.ScreenUpdating = True
Merci d'avance