backcolor dans textbox conditions multiples

[Yvon]

Bonsoir à tous

J'ai plusieurs textbox qui changent de couleurs pour autoriser la saisie, elles sont commandées par une cellule qui change de valeur suivant l'action d'un menu déroulant.

Quelle est la syntaxe pour ne pas à refaire une ligne de code par numéro.

Pour être plus clair comment remplacer ci dessous en une ou deux igne :

multiprest.TextBox2.BackColor = &HFF&
If sheets(1).Range('G28').Value = 31 Then multiprest.TextBox2.BackColor = &HFFFFFF
If sheets(1).Range('G28').Value = 32 Then multiprest.TextBox2.BackColor = &HFFFFFF
If sheets(1).Range('G28').Value = 33 Then multiprest.TextBox2.BackColor = &HFFFFFF

Par avance merci
a++
Yvon

 

[Yvon]

Salut Charly, Ours masqué, le forum

Rien qu'un truc à dire c'est NICKEL.

J'ai bien noté le Unload me, dans initialize, et la fonction indicelist que je ne connaissais pas qui va bien m'aider, tu as un coup d'avance la désactivation du focus je comptais m'y atteler à la prochaine étape, tu m'évites de longue minutes de recherche sur la base.

Pour Ours masqué, j'ai repéré deux trois petites choses qui m'interresse dans ton code.

Un grand Merci à tous les deux pour le coup de main

Je vous souhaite, une bonne: nuit, journée, rayer les mentions inutiles

a++
Yvon