couleur userform

[LINET]

bonjour
je souhaiterai en fonction d'un choix changer la couleur de mon userform.
j'ai 2 combobox avec des références produits alimenter par une colonne A
En fonction de mon choix j'ai 2 textbox qui me dise OUI ou NON
si les textbox sont remplis par 2 fois "non" j'aimerai que l'userform passe au vert
si les textbox sont 2 fois "oui" vert également
si les textbox sont "oui" "non" ou "non""oui" l'userform devient rouge (produit pas compatible entre eux)
en revanche si les textbox sont vides l'userform reste en gris d'origine.
cdt

 

[Dranreb]

Bonjour.

Private Sub TextBox1_Change()
BackColor = IIf(TextBox1.Value <> TextBox2.Value, &HCC00FF, &HA5FF00)
End Sub

Private Sub TextBox2_Change()
BackColor = IIf(TextBox1.Value <> TextBox2.Value, &HCC00FF, &HA5FF00)
End Sub