Formatage automatisé des couleurs des séries d'un graphique
Bonjour!
je voudrais savoir comment je peux faire un formatage automatisé selon les valeurs numérique, des couleurs des bandes de mon graphique. J'ai créé un bouton qui ne fonctionne pas qui trie en ordre croissant et ajoute les couleurs, mais je ne sais pas pourquoi les couleurs ne fonctionne pas, mais le tri croissant oui... En gros, si la valeur de la colonne C est plus grande que 2, je veux que la bande correspondante dans le graph se mette en bleu, et sinon et rouge si plus petite, et que le tout soit trié en ordre croissant de valeurs. (valeurs permises entre 0 et 5 ici) donc voila merci!
PS: Voir le fichier test car 350ko en PJ uploadé sur ce site:
merci et bonne journée/soirée
Bonsoir,
En plus de ton code de tri, essaie avec ce code, pour colorier tes points :
Sub Macro5()
Dim Cho As Chart
Dim SerCol As Series
Dim I As Byte
Set Cho = ActiveSheet.ChartObjects("Chart 1").Chart 'Attention au nom du Graphique
For Each SerCol In Cho.SeriesCollection
For I = 1 To SerCol.Points.Count
SerCol.Points(I).Interior.Color = IIf(SerCol.Values(I) <= 2, RGB(230, 13, 46), RGB(0, 36, 105))
Next I
Next SerCol
End SubBonne soirée
wowww! ca c'est rapide comme réponse! merci beaucoup cousinhub!
A+ bonne soirée!!