XL 2010 Macro : Definir une couleur d'etiquette en fonction de cellule.

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.

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

  • Test.xlsm
    19.6 KB · Affichages: 31
Dernière édition:

kingfadhel

XLDnaute Impliqué
Bonsoir,
@toi,

VB:
Sub Gaouul()
For i = 1 To ActiveChart.FullSeriesCollection.Count
    c = Sheets("PARAMETRE").Range("B" & i + 1).Interior.Color
    bleu = c \ 65536
    vert = (c - bleu * 65536) \ 256
    rouge = c - bleu * 65536 - vert * 256
     ActiveChart.FullSeriesCollection(i).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(rouge, vert, bleu)
        .Transparency = 0
        .Solid
    End With
Next
End Sub
 

gaouul

XLDnaute Nouveau
Bonjour Le Forum,
Bonjour @kingfadhel,

Merci pour ton retour.
La mise a jour des couleurs d'étiquettes est fonctionnel (quand je réécris "ActiveChart.SeriesCollection.Count"), mais elle ne prend pas en compte la valeur de ma colonne A qui doit correspondre à la valeur de l'étiquette.
Dans le cas ou la valeur est inexistante alors passer a la valeur suivante.

Je continu de chercher une autre solution.

Bonne journée.
 

kingfadhel

XLDnaute Impliqué
Bonjour Le Forum,
Bonjour @kingfadhel,

Merci pour ton retour.
La mise a jour des couleurs d'étiquettes est fonctionnel (quand je réécris "ActiveChart.SeriesCollection.Count"), mais elle ne prend pas en compte la valeur de ma colonne A qui doit correspondre à la valeur de l'étiquette.
Dans le cas ou la valeur est inexistante alors passer a la valeur suivante.

Je continu de chercher une autre solution.

Bonne journée.

Re,
je n'ai pas compris ce que tu veux dire.
 

gaouul

XLDnaute Nouveau
Re,
je n'ai pas compris ce que tu veux dire.
Dans le fichier transmis, onglet "Parametre", dans la colonne A je dispose des différentes étiquettes possibles.
Si la valeur contenu en Sheets("Parametre").Range("A2") existe dans les étiquettes alors on applique la couleur lié en colonne B ou C en fonction de la faisabilité.
Sinon on passe à la ligne suivante à savoir Sheets("Parametre").Range("A3"), et ceux jusqu'à la dernière ligne non vide de la feuil "paramètre"

Merci pour ton aide
 

Discussions similaires