Bonjour,

Sur ma feuille j'ai cree 25 graphes comportant chacun 4 series, il faut que je change les couleurs des series sur tous pour que la 1ere soit rouge, la 2e vert, la 3e bleue, la 4e jaune

Voila ce que j'ai ecrit seulement je n'arrive pas a le faire fonctionner

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub GraphSeriesColor()
Dim oChart As ChartObject
 
For Each oChart In ActiveSheet.ChartObjects
 
 ActiveChart.SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
 ActiveChart.SeriesCollection(2).Interior.Color = RGB(0, 255, 0)
 ActiveChart.SeriesCollection(3).Interior.Color = RGB(0, 0, 255)
 ActiveChart.SeriesCollection(4).Interior.Color = RGB(255, 255, 0)
 
Next oChart
 
End Sub