graphique couleur automatique

[cyrus55160]

Bonjour,

Je realise un graph avec une série de données, et je voudrais que les histogrammes prennent des couleurs spécifiques en fonction du groupe auquels ils appartiennent.Comment traduire cela en Vb?

Ci joint un fichier pour exemple.

Merci

 

[13GIBE59]

Re : graphique couleur automatique

Bonjour, Cyrus

Sans vba : clic droit sur ton graphique -> type de graphique, onglet 'type personnalisé',
coche 'type personnalisé' et choisis ajouter.

A +

 

[cyrus55160]

Re : graphique couleur automatique

Merci

Mais cette solution je la connais que trop bien, j'aimerais l'automatiser.

merci d'avoir pris le temps de repondre.

 

[Pierrot93]

Re : graphique couleur automatique

Bonsoir,

regarde le code ci-dessous, si cela peut t'aider :

Sub test()
Dim s As Series, i As Integer
Set s = Feuil1.ChartObjects(1).Chart.SeriesCollection(1)
With s
    For i = 1 To .Points.Count
        .Points(i).Interior.ColorIndex = Range("A3:A7").Find(.XValues(i), , xlValues, xlWhole, , , False).Offset(0, 5).Interior.ColorIndex
    Next i
End With
End Sub

bonne soirée
@+