Couleur de graphiques suivant les abcisses [Résolu]

[babybell]

Amis du forum bonjour

J'aimerai savoir s'il était possible d'associer des couleurs aux variables qui composent l'abcisse d'un graphique ?

Par exemple, si les noms sont :

A alors jaune
B alors rouge
c alors vert
E alors bleu

Car ce ne sont pas toujours les mêmes variables qui reviennent et il faudrait qu'à chaque variable soit associée une couleur.

Ais-je été assez clair ?

Merci de votre aide

[Daniel.C]

Bonjour,

Je ne pense pas que ce soit possible. Je n'arrive pas à les modifier manuellement.

[philo6]

Bonjour
Tu ne peux pas modifier les couleurs des abscises mais tu peux faire quelques effets, grace a l'ajout de plusieurs séries ayant comme valeur 0 et étiquettes les A, pour une série
les B, pour une autre série
les C et ainsi de suite.
Cela implique une petite modification de ton tableau, et l'ajout de X série en fonction de tes X couleurs.

[babybell]

J'ai du mal m'exprimer.

Je ne désire pas changer la couleur des données en abcisse, mais les couleurs des barres ou des secteurs des graphiques suivant le nom se trouvant en abcisse.

Dans mon exemple, si en abcisse on trouve "A", alors la couleur de la barre ou du segment du graphique sera "jaune"; si on trouve "B", la barre ou le segment sera "rouge", etc...

[mercatog]

Bonjour
Les couleurs correspondant à chaque barre sont affectées aléatoirement?

[philo6]

re
tu peux tester cette boucle.

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub ChoixCouleur()
'Active le graphique de la feuille
ActiveSheet.ChartObjects(1).Activate
'Compte le nombre de point
For I = 1 To ActiveChart.SeriesCollection(1).Points.Count
'Prend la couleur de la celule, Point I = Point1 et cell(I,1)=ligne 1 colonne 1
'Ensuite on boucle sur les points et les couleurs. ( mettre les couleurs sur les cellules A1: Ax)
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I, 1).Interior.ColorIndex
Next I
End Sub

j'en avais une avec "Case", mais je ne la retrouve pas

[babybell]

Merci philo6, en adaptant, j'ai réussi à faire ce que je voulais. Je te remercie. Merci aussi à Daniel.C et à mercatog de m'avoir répondu.

[philo6]

Bonjour
Le sujet est résolu, mais j'avais parlé de case, ne l'ayant pas retrouvé, j'ai adapté la macro précedente, elle permet de colorer la colonne A en fonction de A B C ou D et de colorer les points du graphique.

Code :

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
 
Sub test()
Dim cell As Range
Application.ScreenUpdating = False
ActiveSheet.ChartObjects(1).Activate
For I = 1 To ActiveChart.SeriesCollection(1).Points.Count
For Each cell In Range("A:A")
Select Case cell.Value
Case Is = "A"
cell.Interior.ColorIndex = 3
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I, 1).Interior.ColorIndex
Case Is = "B"
cell.Interior.ColorIndex = 5
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I, 1).Interior.ColorIndex
Case Is = "C"
cell.Interior.ColorIndex = 10
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I, 1).Interior.ColorIndex
Case Is = "D"
cell.Interior.ColorIndex = 44
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I, 1).Interior.ColorIndex
End Select
Next
Next I
Application.ScreenUpdating = True
End Sub

si tu n'a pas besoin de colorer les cellules, il suffit d'effacer

Code :

cell.Interior.ColorIndex = 3

[babybell]

Merci à toi de ce complément. Bonne soirée