Graphe multi colonnes qui changent de couleurs

[Antoine G]

Bonjour,

Dans un graphe avec plusieurs colonnes (plusieurs series de donnees), je voudrais que les colonnes changent de couleur si leur valeur est au dessus d'une limite predefinie (limite differente pour chaque serie). Est ce faisable? avec VBA?
Mon but est de suivre 3 parametres et si un de ces parametres est au dessus de sa limite, la colonne devient rouge. Si vous avez une autre idee, je suis preneur!
Merci d'avoir lue ma question. Veuillez excusez le manque d'accent, je suis sur un clavier 'QWERTY'.
Bonne fin de journee.
Antoine.

 

[fifi]

salut voici le code que j'utilise habituellement

Sub Color_graph()
Application.ScreenUpdating = False
on error resume next
ActiveSheet.ChartObjects('NomDeTonGraph').Activate
Dim I, couleur, limite As Variant
   I = 0
   limite = Range('k1') ''en K1 la valeur limite
For Each c In Range('Ta_plage_série_1')
    I = I + 1
    If c.Value < limit Then
            c.Interior.ColorIndex = 4 'colori la cellule
            Couleur = 4 'à changer
    Else
            c.Interior.ColorIndex = 3 'colori la cellule
            Couleur = 3 'à changer
    End If

        ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = Couleur

Next c
''''série 2
For Each c In Range('Ta_plage_série_2')
    I = I + 1
    If c.Value < limit Then
            c.Interior.ColorIndex = 4 'colori la cellule
            Couleur = 4 'à changer
    Else
            c.Interior.ColorIndex = 3 'colori la cellule
            Couleur = 3 'à changer
    End If
       ActiveChart.SeriesCollection(2).Points(I).Interior.ColorIndex = Couleur

Next c

End Sub

++

 

[Antoine G]

Merci beaucoup fifi

J'ai une petite question, je sais pas bien ce que c'est que 'Ta_plage_série_1' dans la procedure que tu m'as file. C'est le nom de ma premiere serie?

Aussi, sais tu si il est possible de changer la couleur que de la partie au dessus de la limite?

en tout cas merci beaucoup, je ne m'attendais pas a avoir une reponse precise.