Bonjour,

Je réalise des graphiques par macro, et, dans un menu, on peut changer la couleur des données.

Pour les données qui sont sous forme de "nuage de points", je parviens à changer la couleur de chaque point en parcourant successivement tous les points.

J'utilise pour cela le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
For x = 1 To derColCR - 4
            Sheets("Compte_rendu").ChartObjects("graphique" & i).Chart.SeriesCollection(j - 1).Points(x).MarkerForegroundColor = RGB(160, 180, 120)
            Sheets("Compte_rendu").ChartObjects("graphique" & i).Chart.SeriesCollection(j - 1).Points(x).MarkerBackgroundColor = RGB(160, 180, 120)
Next x

Par contre, dans ma légende, la couleur ne change pas, ce qui est tout à fait normal puisque je parcours les points un par un. Le problème, c'est que je n'ai pas trouvé l'instruction permettant d'atteindre la couleur visible dans la légende... Quelqu'un a t il une idée à ce propos ?

Merci de votre aide.

Baptiste