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