![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
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. |
|
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
XLDnaute Occasionel
Date d'inscription: avril 2005
Messages: 321
|
salut voici le code que j'utilise habituellement
Code:
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
|
|
|
|
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
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. |
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|