XL 2010 VBA - Colorier des cellules en fonction des codes couleurs RVB

[tchi456]

Bonjour,

Je souhaiterais pouvoir colorier automatiquement les cellules de ma colonne E en fonction des codes couleur RVB se trouvant dans les cellules des colonnes B (Rouge), C (Vert) et D (Bleu).

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

 

[Dranreb]

Bonjour.

Cells(L, "E").Interior.Color = RGB(Cells(L, "B").Value, Cells(L, "C").Value, Cells(L, "D").Value)

 

[Lolote83]

Bonjour @tchi456 ,
Sans fichier joint, un exemple ici
@+ Lolote83

 

[tchi456]

Bonjour Lolote83,

Merci pour votre proposition qui fonctionne très bien mais je souhaiterais pouvoir le faire automatiquement sur plus de 200 lignes.

Meilleures salutations,

Thierry

 

[Lolote83]

Re bonjour,
Fournir un fichier exemple serait le plus simple
@+ Lolote83

 

[Dranreb]

Eh bien vous faites varier L de 1 à 200 dans une boucle For L = 1 To 200

 

[tchi456]

Voici le fichier exemple

 

[Dranreb]

Alors quoi ? Avec ça ce n'est pas fait automatiquement quand on clique sur le bouton ?
Si vous ne voulez pas du bouton il faut dire quand on fait quoi que ça doit être fait ?

 

[Lolote83]

Re bonjour,
@tchi456 , ta boucle doit commencer à la ligne 2 pour que cela fonctionne

For i = 2 To derlig

@+ Lolote83

 

[tchi456]

Be bonjour Lolote83,

Mais quelle andouille je fais. Merci pour votre oeil avisé.

Bonne journée