gaouul
XLDnaute Nouveau
Bonjour,
J'ai un problème avec une macro que je suis en train de rédiger.
L'objectif étant de changer les couleurs des étiquettes afin de correspondre aux étiquettes dans l'onglet "PARAMETRE".
Ci-joint mon code, ainsi que le lien vers le fichier.
Pouvez-vous m'orienter sur le bon fonctionnement d'une macro similaire SVP?
Merci.
Bonne journée.
J'ai un problème avec une macro que je suis en train de rédiger.
L'objectif étant de changer les couleurs des étiquettes afin de correspondre aux étiquettes dans l'onglet "PARAMETRE".
Ci-joint mon code, ainsi que le lien vers le fichier.
Code:
Sub test()
Sheets("PARAMETRE").Activate
dl = Sheets("PARAMETRE").Range("X" & Cells.Rows.Count).End(xlUp).Row
For i = 3 To dl
Sheets("SUIVI DES RELANCES FOURNISSEURS").Activate
ActiveChart.SeriesCollection(Sheets("PARAMETRE").Range("X" & i).Value).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.SchemeColor = Sheets("PARAMETRE").Range("AA" & i).Value
.Solid
End With
ActiveChart.ChartArea.Select
Next i
Sheets("SUIVI DES RELANCES FOURNISSEURS").Activate
End Sub
Pouvez-vous m'orienter sur le bon fonctionnement d'une macro similaire SVP?
Merci.
Bonne journée.
Pièces jointes
Dernière édition: