Bonjour,
Je suis (très) débutante en VBA et j'aurais voulu faire varier la couleur des barres d'un histogramme en fonction des valeurs. Par exemple:
si valeur<10 => couleur 12
si valeur>50 => couleur 7
sinon, couleur 3.
J'ai donc fait le code suivant (précision: j'ai nommé la plage de cellules source "Zn"):
Sub mefcGraph()
Dim aC, dSrces As Range
Application.ScreenUpdating = False
Set aC = ActiveCell
Set dSrces = Range("Zn")
For i = 1 To dSrces.Rows.Count
If dSrces.Cells(i, 2).Value < 10 Then
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 12
ElseIf dScres.Cells(i, 2).Value > 50 Then
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 7
Else
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
End If
Next i
aC.Select
End Sub
Malheureusement, ça ne marche pas et j'obtiens le message: "Objet requis (erreur 442)"
. je suis allée voir dans help mais j'ai pas trouvé mon erreur. Est-ce q.q'un pourrait m'aider s'il vous plait? C'est assez urgent!
Merci d'avance et bonne journée
Lulabulle
Well, there's another dance, all you gotta do is say yeah