mistercoke
XLDnaute Junior
Bonjour à tous, j'ai récupéré sur le site Formation Excel VBA JB un code permettant d'avoir les points d'un graphique en couleur suivant la couleur du fond de la cellule.
Comme j'ai du mal a comprendre le code, je n'arrive pas à l'appliquer sur un deuxième graphique.
Le code utilisé est :
******************************************************
Sub ModifCouleur2()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex
Next i
End Sub
*******************************************************
Pourriez-vous m'aider à comprendre ce code ou bien le modifier dans mon fichier afin que je puisse faire une comparaison pour y comprendre quelque chose.
Dans l'attente de votre réponse, merci à vous.
Cordilament
Comme j'ai du mal a comprendre le code, je n'arrive pas à l'appliquer sur un deuxième graphique.
Le code utilisé est :
******************************************************
Sub ModifCouleur2()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex
Next i
End Sub
*******************************************************
Pourriez-vous m'aider à comprendre ce code ou bien le modifier dans mon fichier afin que je puisse faire une comparaison pour y comprendre quelque chose.
Dans l'attente de votre réponse, merci à vous.
Cordilament