Here's what I need to do. The color ForeColor.RGB needs to be equal to the color of the j31. It needs to adjust to the color i put j31 to.
Range("J31").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10498160
.TintAndShade = 0
.PatternTintAndShade = 0
End With
For i = 1 To 22
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(i).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(112, 48, 160)
.Transparency = 0
.Solid
End With
Next i
End Sub