J'ai construit un histogramme montrant le Chiffre d'affaire par Famille !
Quelqu'un saurait comment je pourrais colorer les barres en fonction de la couleur d'une cellule !
Par exemple dans le graph ci dessus j'aimerai ques pour la famille 1 la barre soit en Jaune, pour la famille 2 en Bleu.....
Option Explicit
Sub test()
Dim i As Integer
With Feuil1.ChartObjects(1).Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).Interior.ColorIndex = Cells(i, 1).Interior.ColorIndex
Next i
End With
End Sub