Couleur séries selon nom séries histogramme

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