XL 2019 Boucle avec for sur une plage définie

[wrap food]

Bonjour à tous,
j'ai de nouveau un problème, que j' n'arrive pas résoudre.
et j'ai donc encore besoin de vos aides ou conseils.

j'ai "réussi" a créer un code qui me permet de coloriser des plannings selon une liste déjà prédéfini via une macro.
pour la moment la liste ''definie" est a chaque fois dans la feuille du planning.
Mon souhait serait de pouvoir n'avoir qu'une seule liste définie pour tous les plannings qui serait dans la feuil ''Prog''.

j' ne sais pas si j'ai été assez clair, je me donc un fichier test pour que cela soit plus explicite.


Encore merci pour votre aide

 

[sylvanu]

Bonsoir Wrapfood,
Vous pouvez tenter de remplacer les deux lignes :

    If cell.Value = Sheets("Prog").Cells(Z, 2).Value Then Selection.Interior.Color = Sheets("Prog").Cells(Z, 2).Interior.Color
    If cell.Value = Sheets("Prog").Cells(Z, 2).Value Then Selection.Font.Color = Sheets("Prog").Cells(Z, 2).Font.Color

Par contre cela suppose le même code couleurs pour toutes les feuilles, ce qui n'est pas le cas dans votre fichier pour S1.

 

[wrap food]

Tous simplement
MERCI et BRAVO

 

[Jacky67]

Bonjour à tous,
j'ai de nouveau un problème, que j' n'arrive pas résoudre.
et j'ai donc encore besoin de vos aides ou conseils.

j'ai "réussi" a créer un code qui me permet de coloriser des plannings selon une liste déjà prédéfini via une macro.
pour la moment la liste ''definie" est a chaque fois dans la feuille du planning.
Mon souhait serait de pouvoir n'avoir qu'une seule liste définie pour tous les plannings qui serait dans la feuil ''Prog''.

j' ne sais pas si j'ai été assez clair, je me donc un fichier test pour que cela soit plus explicite.


Encore merci pour votre aide

Bonjour à tous,
Une proposition avec une seule liste en feuille PROG
Les couleurs sont pris en compte directement à la selection
Le code se trouve dans le thisworkbook