code VBA

Lanza mario

XLDnaute Nouveau
Bonjour
Nouveau de ce forum, je vous demande de l'aide.
J'ai crée un formulaire VBA avec 35 texbox; dans ce texbox je inscrit des valeur en mm exemple 0.2, 0.5 ,0.7 ecc.ecc. dans une texbox j'ai mis une valeur de reference, 0.9 je voudrai que i les autre texbox depassent la valeur de reference se mettent au rouge.
J'ai essaye ce code
If TextBox36.Value = "" Or TextBox90.Value = "" Then
X = 0
Else
X = TextBox36.Value - TextBox36.Value
End If

If X < 0.9 Or TextBox36.Value = "" Then
TextBox36.BackColor = &HFFFFFF
Else
TextBox36.BackColor = &HFF&
MsgBox ("Attention, tolérance maxi")
End If

cela ne fonctionne pas, mais si je change la référencent je met 10 a la place de 0.9 cela fonctionne
pouvez vous me donner un coup de main pour résoudre ce problème?
Merci a tous
 

mutzik

XLDnaute Barbatruc
Code:
If TextBox36.Value = "" Or TextBox90.Value = "" Then
X = 0
Else
X = TextBox36.Value > TextBox90.Value
End If

If X Or TextBox36.Value = "" Then
TextBox36.BackColor = &HFFFFFF
Else
TextBox36.BackColor = &HFF&
MsgBox ("Attention, tolérance maxi")
End If
 

Statistiques des forums

Discussions
312 800
Messages
2 092 238
Membres
105 299
dernier inscrit
doudounapnap