Discussion :

[mat-tech]

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.

[fring]

Bonjour,

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub barres()
Dim NbrPoint As Integer
 
ActiveSheet.ChartObjects(2).Select
 
NbrPoint = ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(NbrPoint).Interior.ColorIndex = 4
 
End Sub

Vu que tu précises que l'histogramme est le second graphique, ce ne serait pas SeriesCollection(2) ?

[mat-tech]

Une fois de plus je vous remercie Mr Fring