Le Forum des Janusiens est l'espace de discussion des visiteurs de jeanviet.info, inscris-toi pour poster un message, pas de mail de confirmation, une fois reconnu, tu peux commencer à parler !
1 Ã 1 Ã 1
), à propose de cette astuce:Sub CouleurValeurSeries()
Dim MesSeries As Series
With ActiveChart
For Each MesSeries In .SeriesCollection
Select Case MesSeries.Name
Case "A"
MesSeries.Interior.ColorIndex = 3
Case "B"
MesSeries.Interior.ColorIndex = 5
Case "C"
MesSeries.Interior.ColorIndex = 4
End Select
Next
End With
End Sub
1 Ã 1 Ã 1