XL 2019 Textbox et couleur

Mapat · 2 Mai 2021

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 · 2 Mai 2021

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.

Dans cet exemple pour votre rose cela donnerait :

VB:

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

RGB, fonction - Support Microsoft

support.microsoft.com

sylvanu · 2 Mai 2021

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.

Dans cet exemple pour votre rose cela donnerait :

VB:

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

RGB, fonction - Support Microsoft

support.microsoft.com

sylvanu · 2 Mai 2021

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

Dranreb · 2 Mai 2021

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 · 3 Mai 2021

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

XL 2019 Textbox et couleur

Mapat

XLDnaute Occasionnel

sylvanu

RGB, fonction - Support Microsoft

sylvanu

XLDnaute Barbatruc

RGB, fonction - Support Microsoft

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Élaboration et utilisation de jeux de couleurs.

Mapat

XLDnaute Occasionnel

Discussions similaires