Modifier la couleur des bullets points dans un graphe nuage ?

  • Initiateur de la discussion Initiateur de la discussion CHS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

CHS

Guest
Bonjour Forum,
Je fais un graphique nuage à partir de : X (volumes de ventes) et Y (marge).
Dans une troisième colonne une info dit si mon client est en France ou hors France.
Je voudrais que le bullet point des client "France" soit rouge et celui des clients "Hors France".
J'ai essayé le code suivant (adapté du coloriage des graphiques "Bulle") mais rien ne se passe....

Sub Colorie_Points_NuageOM()
Dim nbval, a, col As Integer
'Sélectionne le Graphique "Nuage_OM"
Sheets("Sources_Graph").ChartObjects(1).Activate
'Définis le nombre de points dans la collection
nbval = ActiveChart.SeriesCollection(1).Points.Count

' Sélectionne chacun des points et lui attribue
' la couleur de la cellule lui correspondant.
For a = 1 To nbval
col = Sheets("Sources_Graph").Range("f" & a + 2).Interior.ColorIndex
With ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col
End With
Next
End Sub


Est-ce que c'est "Point(a)." qu'il faut utiliser ou un autre argument ?

Pendant que j'y suis : est-il possible de modifier le bullet point lui même ? (avoir des carrés et des ronds au lieu du bullet par défaut)

Merci d'avance forum adoré !

CHS
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour