Discussion :

[clanou01]

Bonjour,

Etant plus que débutante en VBA, j'ai essayé de trouver une solution sur les forums mais en vain. Je viens donc demander un petit coup de main. Voici ce que j'aimerais faire :

J'ai plusieurs tableaux répertoriant des espèces d'insectes et je voudrais, lorsque je fais des graphiques anneaux, que chaque espèce soit représentée avec toujours la même couleur.

exemple :

espèce	pourcent
Aedes detritus	63,64%
Aedes caspius	27,27%
Culiseta annulata	9,09%

Si je choisis de réaliser un graphique anneau sur tous mes tableaux, je souhaiterais qu'Aedes detritus apparaissent toujours en rouge, Aedes caspius en bleu et Culiseta annulata en vert quelque soit le pourcentage indiqué (Aedes detritus peut très bien apparaitre en deuxième position dans un autre tableau etc...)

En vous remerciant par avance pour vos éclairages

Clanou01

[clanou01]

Je vois que vous êtes autant inspiré que moi.

Bon alors en faisant un peu plus de recherche, j'ai trouvé un code qui pourrait répondre à mes attentes. Mais ça ne marche ou plutôt je n'arrive pas à l'adapter à mes atttentes.

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
 
Sub CouleurValeurSeries()
Dim MesSeries As Series
With ActiveChart
For Each MesSeries In .SeriesCollection
Select Case MesSeries.Name
 
Case "Aedes detritus"
MesSeries.Interior.ColorIndex = 3
 
 
Case "Aedes caspius"
MesSeries.Interior.ColorIndex = 33
 
Case "Culiseta annulata"
MesSeries.Interior.ColorIndex = 50
 
 
End Select
Next
End With
End Sub

Help !!!

Clanou01

[Jean-Philippe André]

Salut,

en passant par le mode pas a pas, tu arrives a voir si tu rentres dans les boucles de ton select case ?

[clanou01]

Salut

Je ne suis pas sûre de savoir trop me servir du Débogage. Je mets mon curseur en haut du code et je fais F8 c'est ça ?

[Jean-Philippe André]

Oui et tu passes d'une ligne a l'autre a chaque F8.

Une fois que tu arrives sur la ligne Select Case tu regarde la valeur exacte en mettant ton curseur sur la variable

[clanou01]

ok, alors il est noté :

Code :

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

1
2
 
MesSeries.Name="Série1"

[Jean-Philippe André]

ce qui ne correspond donc a aucun de tes cas, il faut donc changer l'approche, soit en changeant les libelles en amont soit en travaillant sur les libelles par defaut Serie1 etc.

[clanou01]

ok, je viens de comprendre le principe ! Merci

Donc mon problème c'est que je n'ai qu'une seule série avec 3 noms d'insectes. En fait, ce que j'aimerais retranscrire c'est que dans la série si il y a un nom (ou texte ou cellule) qui s'appelle Aedes detritus alors sa part du camembert doit apparaitre rouge, et si c'est Aedes caspius alors ça sera en bleu...etc

Tu parles de changer les libellées en amont, c'est à dire ?

[mercatog]

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 coloriage()
Dim i As Byte
Dim X
 
With Worksheets("Feuil1").ChartObjects(1).Chart.SeriesCollection(1)
    X = .XValues
    For i = 1 To UBound(X)
        Select Case X(i)
            Case "Aedes detritus": .Points(i).Interior.ColorIndex = 3
            Case "Aedes caspius": .Points(i).Interior.ColorIndex = 33
            Case "Culiseta annulata": .Points(i).Interior.ColorIndex = 50
        End Select
    Next i
End With
End Sub

[clanou01]

Salut mercatog,

Génial, c'est tout à fait ça !! Et ça marche nickel. Mon seul problème est que si j'ai plusieurs graphiques dans une même feuille, la macro ne fonctionne que sur le premier graphique. J'ai essayé de bidouiller le code pour éviter de t'ennuyer avec ça, mais je n'y arrive pas. Quelles modifications dois-je apporter pour que la macro fonctionne quelque soit le graphique sur lequel je la fais jouer ?

Merci et bonne journée

[Jean-Philippe André]

Salut,

tu peux boucler avec quelque chose du style

Code :

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

1
2
3
4
5
6
Dim i As Integer
For i = 1 To Worksheets("Feuil1").ChartObjects.Count
With Worksheets("Feuil1").ChartObjects(i).Chart.SeriesCollection(1)
....
End With
Next i

[clanou01]

Merci Jean-Philippe.

J'ai essayé d'adapter ton bout de code mais je n'y arrive pas. J'ai le message d'erreur : Erreur de compilation: Next sans For.
J'essaie de comprendre la logique mais je n'ai jamais codé en vba, alors c'est pas simple.

[Jean-Philippe André]

Peut-on voir le code que tu as actuellement ?

[clanou01]

le code que j'utilise, qui est bon mais que je peux jouer que sur le 1er graphique est le suivant :

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
29
30
31
32
33
34
35
36
37
 
Sub coloriage()
Dim i As Byte
Dim X
 
With Worksheets("Feuil1").ChartObjects(1).Chart.SeriesCollection(1)
    X = .XValues
    For i = 1 To UBound(X)
        Select Case X(i)
            Case "Culiseta annulata subochrea": .Points(i).Interior.Color = RGB(27, 149, 217)
            Case "Aedes annulipes cantans": .Points(i).Interior.Color = RGB(134, 209, 228)
            Case "Aedes caspius": .Points(i).Interior.Color = RGB(228, 135, 1)
            Case "Aedes cinereus": .Points(i).Interior.Color = RGB(209, 223, 231)
            Case "Aedes detritus coluzzii": .Points(i).Interior.Color = RGB(165, 188, 78)
            Case "Aedes flavescens": .Points(i).Interior.Color = RGB(197, 224, 93)
            Case "Aedes geniculatus": .Points(i).Interior.Color = 14
            Case "Aedes punctor": .Points(i).Interior.Color = RGB(197, 246, 143)
            Case "Aedes rusticus": .Points(i).Interior.Color = RGB(102, 147, 176)
            Case "Aedes sticticus": .Points(i).Interior.Color = RGB(255, 213, 18)
            Case "Aedes vexans": .Points(i).Interior.Color = RGB(228, 249, 160)
            Case "Anopheles claviger": .Points(i).Interior.Color = RGB(6, 98, 176)
            Case "Anopheles maculipennis": .Points(i).Interior.Color = RGB(231, 193, 116)
            Case "Anopheles plumbeus": .Points(i).Interior.Color = RGB(189, 241, 230)
            Case "Culex europaeus": .Points(i).Interior.Color = RGB(158, 152, 125)
            Case "Culex hortensis": .Points(i).Interior.Color = RGB(237, 232, 198)
            Case "Culex impudicus": .Points(i).Interior.Color = RGB(235, 152, 141)
            Case "Culex modestus": .Points(i).Interior.Color = RGB(145, 201, 229)
            Case "Culex pipiens": .Points(i).Interior.Color = RGB(240, 94, 39)
            Case "Culex torrentium": .Points(i).Interior.Color = RGB(204, 51, 0)
            Case "Culiseta fumipennis": .Points(i).Interior.Color = RGB(82, 212, 202)
            Case "Culiseta litorea morsitans": .Points(i).Interior.Color = RGB(202, 202, 158)
            Case "Culiseta longiareolata": .Points(i).Interior.Color = RGB(117, 176, 0)
 
        End Select
    Next i
End With
End Sub

[Jean-Philippe André]

OK,

je tenterai une boucle j avec

Code :

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

1
2
3
4
5
For j = 1 To Worksheets("Feuil1").ChartObjects.Count
With Worksheets("Feuil1").ChartObjects(j).Chart.SeriesCollection(1)
' reste de ton code
End With
Next j

[clanou01]

Merci beaucoup Jean-Philippe, merci beaucoup mercatog, tout fonctionne nickel !

Du coup, je mets mon code fini et fonctionnel si cela intéresse quelqu'un :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub coloriage17()
Dim i As Byte
Dim X
Dim j As Integer
 
For j = 1 To Worksheets("17").ChartObjects.Count
With Worksheets("17").ChartObjects(j).Chart.SeriesCollection(1)
 
    X = .XValues
    For i = 1 To UBound(X)
        Select Case X(i)
            Case "Culiseta annulata subochrea": .Points(i).Interior.Color = RGB(27, 149, 217)
            Case "Aedes annulipes cantans": .Points(i).Interior.Color = RGB(134, 209, 228)
            Case "Aedes caspius": .Points(i).Interior.Color = RGB(228, 135, 1)
            Case "Aedes cinereus": .Points(i).Interior.Color = RGB(209, 223, 231)
            Case "Aedes detritus coluzzii": .Points(i).Interior.Color = RGB(165, 188, 78)
            Case "Aedes flavescens": .Points(i).Interior.Color = RGB(202, 202, 158)
            Case "Aedes geniculatus": .Points(i).Interior.Color = RGB(240, 94, 39)
            Case "Aedes punctor": .Points(i).Interior.Color = RGB(197, 246, 143)
            Case "Aedes rusticus": .Points(i).Interior.Color = RGB(102, 147, 176)
            Case "Aedes sticticus": .Points(i).Interior.Color = RGB(255, 247, 151)
            Case "Aedes vexans": .Points(i).Interior.Color = RGB(228, 249, 160)
            Case "Anopheles claviger": .Points(i).Interior.Color = RGB(6, 98, 176)
            Case "Anopheles maculipennis": .Points(i).Interior.Color = RGB(231, 193, 116)
            Case "Anopheles plumbeus": .Points(i).Interior.Color = RGB(189, 241, 230)
            Case "Culex europaeus": .Points(i).Interior.Color = RGB(158, 152, 125)
            Case "Culex hortensis": .Points(i).Interior.Color = RGB(237, 232, 198)
            Case "Culex impudicus": .Points(i).Interior.Color = RGB(235, 152, 141)
            Case "Culex modestus": .Points(i).Interior.Color = RGB(145, 201, 229)
            Case "Culex pipiens": .Points(i).Interior.Color = RGB(197, 224, 93)
            Case "Culex torrentium": .Points(i).Interior.Color = RGB(204, 51, 0)
            Case "Culiseta fumipennis": .Points(i).Interior.Color = RGB(82, 212, 202)
            Case "Culiseta litorea morsitans": .Points(i).Interior.Color = RGB(255, 213, 18)
            Case "Culiseta longiareolata": .Points(i).Interior.Color = RGB(117, 176, 0)
 
        End Select
    Next i
End With
Next j
End Sub

Pour finir, une petite astuce pour ceux qui débutent comme moi et qui galèrent pensant que le code ne fonctionne pas : si on fait jouer la macro après avoir modifié les étiquettes de l'axe horizontal (abscisse), par exemple pour faire apparaitre la donnée (voir exemple ci-dessous), celle-ci ne fonctionne pas. Il faut donc faire jouer la macro avant d'apporter les modifications.


Encore merci pour tout !

Clanou01