[VBA-E] Changement de couleur d'un point d'une série dans un graphique ?

**epfyffer** · 21/03/2007, 15h58

Bonjour,

Je débute en VBA, en général j'utilise le Recorder mais là j'y arrive pas !

J'ai une série de graphiques (camemberts) qui présentent une répartition entre plusieurs monnaie.

J'aimerais insérer dans mon code un formattage de la couleur des points de ma série, càd j'aimerais que l'EURO soit toujours en bleu, le dollar en rouge, etc etc etc...

J'ai réussi à le faire via le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro()
 
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    With Selection.Interior
        .ColorIndex = 32
        .Pattern = xlSolid
    End With
End Sub

mais cela pose un problème : dans le cas proposé, EUR est égal au point(1) mais certaines fois il arrive en 2è voire en 3è position. J'aimerais donc trouver qqch du style :

IF ActiveChart.SeriesCollection(1).Points(1) = EUR
Then ETC......

Mais je ne trouve pas de sol ?? Je pense que ça doit pas être trop compliqué mais j'y arrive pas...

Merci de votre aide

bonjour et merci de votre réponse.

J'ai déjà parcouru et reparcouru de nombreuses fois le FAQ, qui est vraiment super ! Malheureusement je n'ai pas trouvé qqch qui semblait répondre à mon besoin.

Peut-être parce que j'y connais vraiment pas lourd ?

C'est quel point dans le FAQ qui traite de cela ? (désolé je promet que j'ai cherché !!!!!!!) ???

Merci et désolé pour ces quesitons

**ouskel'n'or** · 21/03/2007, 18h01

Tiens, j'ai trouvé ça
Si ça peut te servir en attendant meilleure réponse.
(je ne me souvenais même plus que j'avair répndu ça, ma mémoire n'est plus ce qu'elle était

)

**doringen** · 21/03/2007, 20h25

Au vu de tes graphiques et du tableua visible à gauche, j´imagine que si l´ordre des séries du graphique change, c´est parce que tu changes l´ordre dans le tableau de valeurs, en triant sur le champ des montants par ordre décroissant...
en faisant simple, si tu figes l´ordre des lignes dans le tableau de valeur (tri alphabétique sur le nom des monnaies), l´ordre des séries ne devrait pas bouger.

Attention: cette solution simple n´est valable que si tu as toujours les mêmes devises dans le tableau. Sinon, je crois qu´il faudra developper une solution faisant appel à des "array".

**epfyffer** · 22/03/2007, 06h46

salut et merci pour vos réponses.

ALors j'ai bien trouvé la méthode pour changer la couleur d'un point de ma série comme tu l'expliques dans ton autre post, mais en fait ce que je n'arrive pas à faire ce'st à fixer EUR = BLEU, USD = ROUGE, etc... (sachant que cette liste de monnaies et de couleurs sont connues).
En fait j'aimerais checker la valeur du point (EUR ou USD par ex) et en fonction y attribuer une couleur définie.

Je ne peux pas me baser sur la place du point dans la série (1 ou 2 etc) car en fonction de ce que j'analyse l'EUR peut se retrouver en 1ère, 2ème ou en xème position. C'est pour cela que j'aimerais jouer avec la valeur et non pas avec la position du point.

Je ne sais pas comment on peut tester la valeur du point d'une serie ... Si je trouve cela je pourrais faire qqch du genre

Si valeur=EUR alors BLEU
Sinon si valeur = USD alors ROUGE
Sinon si valeur = etc.....

une idée pour bibi ???

**epfyffer** · 22/03/2007, 16h51

OK alors j'ai réussi à trouver une solution ...

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub MAJCcyBOP()
    Dim p As Point, maval As String, i As Integer
    i = 0
    For Each p In ActiveChart.SeriesCollection(1).Points
 'Je n'ai qu'une Collection dans mon chart, mais chaque collection a p Points
       i = i + 1
        maval = Left(p.DataLabel.Text, 3)
'Permet de récupérer les 3 premières lettres du label de mon point
        If maval = "EUR" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 32
        ElseIf maval = "USD" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
        ElseIf maval = "SEK" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 4
        ElseIf maval = "CHF" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 5
        ElseIf maval = "JPY" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 6
        ElseIf maval = "YEN" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 7
        ElseIf maval = "Oth" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 19
        ElseIf maval = "GBP" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 9
        End If
    Next p
End Sub

Et voilà !

En lançant la macro, mon graphique passe chaque point de la série et lui attribue une couleur définie à l'avance.

Ainsi, les personnes qui utilisent le rapport peuvent facilement retrouver al proportion d'Euros (c'est un graphique de type camembert), que celui-ci se trouve en première ou en xème position !

Merci pour vos coups de pouces !!!!!!

**jdissard** · 25/02/2020, 10h44

Bonjour,
J'ai la même problématique que epfyffer mais dans le cadre d'un tableau croisé dynamique. J'ai essayé de réadapté le code que tu proposes à ma situation mais ça ne marche pas et je n'arrive pas à trouver d'où cela vient.
Le code tourne mais les secteurs du graphique changent de couleur de manière homogène même lorsque que le datalabel du secteur est égal au texte indiqué par la fonction IF.
J'ai essayé de rajouter "Characters" entre DataLabel et Text mais ça ne change rien... Est ce que quelqu'un aurait une idée pour résoudre le soucis ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  Dim p As Point, maval As String, i As Integer
    i = 0
    For Each p In ActiveChart.SeriesCollection(1).Points
 'Je n'ai qu'une Collection dans mon chart, mais chaque collection a p Points
       i = i + 1
        maval = p.DataLabel.Text
'Permet de récupérer le texte du label ?
        If maval = "RECHERCHE ET DEVELOPPEMENT" Then
            ActiveChart.SeriesCollection(1).Points(i).Interior.Color = RGB(0, 0, 0)
        Else
            ActiveChart.SeriesCollection(1).Points(i).Interior.Color = RGB(30, 1000, 100)
        End If
    Next p
 
 
End Sub