Bonjour à tous,

je crée un graphique automatiquement, a la suite de quoi j'aimerai modifier la couleur de la derniere barre.
J'ai essayé plusieurs codes mais aucun de fonctionne ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Sub barres()
ActiveSheet.ChartObjects(2).Select
ActiveChart.SeriesCollection(1).Points.Count.Interior.ColorIndex = 4
End Sub
Il y a 2 graphiques sur la feuil"Graphique", le premier en nuage de points et le second en Histogramme.
celui dont je dois modifier la couleur de la derniere barre c'est le deuxieme.