Public Sub ColoriageGraphiques()
Dim nomSerie As String, couleurSerie, G
For Each G In ActiveSheet.ChartObjects
G.Activate
For i = 1 To ActiveChart.SeriesCollection.Count
nomSerie = ActiveChart.SeriesCollection(i).Name
couleurSerie = COULEUR(ActiveSheet.Cells( _
ActiveSheet.Range("Noms").Row - 1 + _
Application.WorksheetFunction.Match _
(nomSerie, ActiveSheet.Range("Noms"), 0), 7))
With ActiveChart.SeriesCollection(i)
.Border.Weight = xlHairline
.Border.LineStyle = xlNone
.Interior.ColorIndex = couleurSerie
.Interior.Pattern = xlSolid
End With
Next i
Next G
Windows("Voiture.xls").Activate
End Sub
Function COULEUR%(Optional Cel As Range)
Application.Volatile
If Cel Is Nothing Then Set Cel = Application.Caller
COULEUR = Cel.Interior.ColorIndex
End Function