Macro pour la mise en forme conditionnelle d'histogrammes

Question

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

lulabulle · Answer

Well, there's another dance, all you gotta do is say yeah

Macro pour la mise en forme conditionnelle d'histogrammes

1 réponse

Votre réponse

Discussions similaires