Sub Macro1()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(2).Points(2).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
End Sub
Sub Macro2()
Dim i
ActiveSheet.ChartObjects("Graphique 1").Activate
For i = 1 To ActiveChart.SeriesCollection(2).Points.Count
ActiveChart.SeriesCollection(2).Points(i).Format.Fill.ForeColor.RGB = ActiveSheet.Cells(i + 6, 1).Interior.ColorIndex
Next i
End Sub
Sub Macro3()
Dim i
ActiveSheet.ChartObjects("Graphique 1").Activate
For i = 1 To ActiveChart.SeriesCollection(2).Points.Count
ActiveChart.SeriesCollection(2).Points(i).MarkerBackgroundColorIndex = ActiveSheet.Cells(i + 6, 1).Interior.ColorIndex
Next i
End Sub