formatage automatisé des couleurs des séries d'un graphique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
wrek0ng
Jeune membre
Jeune membre
Messages : 19
Inscrit le : 28 mars 2014
Version d'Excel : 2013 EN

Message par wrek0ng » 5 mai 2014, 18:25

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:

http://www.fileconvoy.com/dfl.php?id=g9 ... a1c7ebc8e9

merci et bonne journée/soirée ;)
-Wrek
c
cousinhub
Membre impliqué
Membre impliqué
Messages : 1'948
Appréciations reçues : 5
Inscrit le : 28 mai 2009
Version d'Excel : xl 2016

Message par cousinhub » 5 mai 2014, 19:00

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 Sub
Bonne soirée
1/ on se demande à quoi servent les correcteurs d'orthographe....
2/ Notre seule récompense est un "Merci".....
Avatar du membre
wrek0ng
Jeune membre
Jeune membre
Messages : 19
Inscrit le : 28 mars 2014
Version d'Excel : 2013 EN

Message par wrek0ng » 5 mai 2014, 19:13

wowww! ca c'est rapide comme réponse! merci beaucoup cousinhub!

A+ bonne soirée!! :D
-Wrek
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message