Couleur séries selon nom séries histogramme

- - Dernière réponse : ccm81
Messages postés
9062
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 août 2019
- 17 août 2019 à 10:04
Patrice33740 1189
17 déc. 2015 à 16:3

Bonjour Patrice33740
Vous avez proposé ce code VBA et il fonctionne très bien.

Option Explicit
Sub CommandButton1_Click()
Dim s As Series
For Each s In ActiveSheet.ChartObjects("Graphique 3")_
.Chart.SeriesCollection
Select Case s.Name
Case "Rouge"
s.Border.Color = RGB(0, 0, 0) 'Noir
Case "CKOI"
s.Border.Color = RGB(0, 0, 255) 'Bleu
End Select
Next s
End Sub

Cependant, il a été programmé pour un graphique à courbes. J'ai essayé de transformer pour un graphique à barres verticales (remplir d'une couleur précise la barre selon le nom de la série) mais je n'y arrive tout simplement pas à mon grand désarrois.

Si vous aviez du temps, j'apprécierais bcp si vous pouviez me mettre sur une piste svp.

Grand merci pour le temps que vous prendrez à me lire et à pouvoir m'aider peut-être.

Lucie



Configuration: Windows / Chrome 72.0.3626.121




Configuration: Windows / Chrome 72.0.3626.121
Afficher la suite 

1 réponse

Messages postés
9062
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 août 2019
1609
0
Merci
Bonjour

Peux tu envoyer ton fichier sur https://mon-partage.fr/ et joindre le lien obtenu à ton prochain message. N'oublies pas quelques explications et précises le résultat attendu.

Cdlmnt
Commenter la réponse de ccm81