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

Dranreb

XLDnaute Barbatruc

• 3 Octobre 2022

• #2

Bonjour.

VB:

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Octobre 2022

• #3

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

 

Pièces jointes

• Copie de TCHI456 - Couleur RVB.xlsm

  14.2 KB · Affichages: 7

Vote positif 0 Vote négatif

T

tchi456

XLDnaute Occasionnel

• 3 Octobre 2022

• #4

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Octobre 2022

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Octobre 2022

• #6

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

 

Vote positif 0 Vote négatif

T

tchi456

XLDnaute Occasionnel

• 3 Octobre 2022

• #7

Voici le fichier exemple

 

Pièces jointes

• Couleurs test.xlsm

  30 KB · Affichages: 13

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Octobre 2022

• #8

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 ?

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Octobre 2022

• #9

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

For i = 2 To derlig

Cliquez pour agrandir...

@+ Lolote83

 

Vote positif 1 Vote négatif

Solution

T

tchi456

XLDnaute Occasionnel

• 3 Octobre 2022

• #10

Be bonjour Lolote83,

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

Bonne journée

 

Vote positif 0 Vote négatif