With Selection.Border .ColorIndex = 3 .Weight = xlThin .LineStyle = xlContinuous End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub changercouleur1() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.SeriesCollection(1).Select With Selection.Interior .ColorIndex = 3 End With End sub