XL 2019 Textbox et couleur

Mapat

XLDnaute Occasionnel
Bonjour
With Me.TextBox6
.BackStyle = IIf(TextBox6 = "Oui", fmBackStyleOpaque, fmBackStyleTransparent)
.BackColor = IIf(TextBox6 = "Oui", &H80FFFF, &H80000005)
.ForeColor = IIf(TextBox6 = "Oui", &HFF&, &H0&)
End With
sert à colorer le textbox en jaune avec la condition oui

Quel code de couleur donnera par exemple du rose et ou peut-on trouver la liste de
ces codes

Merci et bonne soirée
 
Solution
Bonsoir Mapat,
Vous pouvez utiliser RGB qui est pour moi le plus simple et le plus convivial, comme par ex :
VB:
.BackColor = IIf(TextBox6 = "Oui", RGB(255, 0, 0), RGB(0, 255, 0))
Pour les couleurs, dans une feuille vous sélectionnez une cellule puis faites le "pot de peinture", puis autre couleurs, puis personnalisées.
1619973680335.png

Dans cet exemple pour votre rose cela donnerait :
VB:
.BackColor = IIf(TextBox6 = "Oui", RGB(239, 103, 229), RGB(0, 255, 0))

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Mapat,
Vous pouvez utiliser RGB qui est pour moi le plus simple et le plus convivial, comme par ex :
VB:
.BackColor = IIf(TextBox6 = "Oui", RGB(255, 0, 0), RGB(0, 255, 0))
Pour les couleurs, dans une feuille vous sélectionnez une cellule puis faites le "pot de peinture", puis autre couleurs, puis personnalisées.
1619973680335.png

Dans cet exemple pour votre rose cela donnerait :
VB:
.BackColor = IIf(TextBox6 = "Oui", RGB(239, 103, 229), RGB(0, 255, 0))
 

Mapat

XLDnaute Occasionnel
Re

Je vous remercie tous les 2 de vos réponses plus qu'intéressantes
et la solution de Sylvanu.
Ces 2 fichiers sont différents mais je vais les garder précieusement dans mes
archives.
Ce forum est vraiment un des meilleurs.
Bonne journée et bien cordialement
 
Haut Bas