XL 2019 Textbox et couleur

[Mapat]

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

 

[sylvanu]

Bonsoir Mapat,
Vous pouvez utiliser RGB qui est pour moi le plus simple et le plus convivial, comme par ex :

.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.

Dans cet exemple pour votre rose cela donnerait :

.BackColor = IIf(TextBox6 = "Oui", RGB(239, 103, 229), RGB(0, 255, 0))

RGB, fonction - Support Microsoft

support.microsoft.com

 

[sylvanu]

Addon, pour le fun, un vieux fichier démo.

 

[Dranreb]

Bonsoir.
Voir aussi cette ressource :

Élaboration et utilisation de jeux de couleurs.

Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.

www.excel-downloads.com

Elle répondra je pense à toutes vos questions.

 

[Mapat]

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