code VBA

[Lanza mario]

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

 

[jp14]

Bonjour

X = TextBox36.Value - TextBox36.Value
Cette opération donnera toujours 0

JP

 

[mutzik]

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