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

gaouul · 12 Décembre 2017

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.

kingfadhel · 12 Décembre 2017

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 · 13 Décembre 2017

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 · 13 Décembre 2017

gaouul à dit:
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 · 13 Décembre 2017

kingfadhel à dit:
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

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

gaouul

XLDnaute Nouveau

Pièces jointes

kingfadhel

XLDnaute Impliqué

gaouul

XLDnaute Nouveau

kingfadhel

XLDnaute Impliqué

gaouul

XLDnaute Nouveau

Discussions similaires

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

gaouul

XLDnaute Nouveau

Pièces jointes

kingfadhel

XLDnaute Impliqué

gaouul

XLDnaute Nouveau

kingfadhel

XLDnaute Impliqué

gaouul

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency