[Charly2]

Bonsoir Yvon,

Je ne sais pas si c'est volontaire ou si c'est une erreur, mais tu mets 3 fois la même couleur d'arrière-plan. En me basant sur ce que tu as écrit, je te donne le code suivant :

If Sheets(1).Range('G28') Mod 31 <= 2 then
**multiprest.TextBox2.BackColor = &HFFFFFF
End If

Sans connaître le reste du code et les autres valeurs que peut prendre la cellule G28, difficile de proposer autre chose :unsure:

Amicalement
Charly

Edition : En 1 ligne, cela donne
If Sheets(1).Range('G28') Mod 31 <= 2 then multiprest.TextBox2.BackColor = &HFFFFFF

Message édité par: Charly2, à: 21/11/2005 04:23

Message édité par: Charly2, à: 21/11/2005 04:25