Je suis encore bloqué sur un petit truc (enfin j'espère)
Je veux afficher en vert une valeur dans texbox3 si elle est comprise entre textbox1 et textbox2 et en rouge dans le cas contraire. Sachant que textbox1 = -0.2 et textbox2 = +0.2
J'ai essayé
Dim mini As Double
Dim maxi As Double
If IsNumeric(TextBox1.Text) Then
mini = CDbl(TextBox1.Text)
End If
If IsNumeric(TextBox2.Text) Then
maxi = CDbl(TextBox2.Text)
End If
Private Sub Textbox3_Change()
Textbox3.ForeColor = IIf(Textbox3.Value <= maxi And Textbox3.Value >= mini, vbGreen, vbRed)
End Sub
J'ai essayer aussi
Dim mini As Double
Dim maxi As Double
mini = textbox1.value
maxi = textbox2.value
mais ça ne marche pas non plus!!!!
Ce que je trouve bizarre c'est quand textbox3 = -0.2 il passe bien en vert mais -0.1 il est rouge. J'ai l'impression que c'est le comparateur "inférieur" qui bloque.
Re : Comparaison avec une valeur négative dans textbox
Bonjour Tous :0
Pour utiliser la fonction VAL pour obtenir la valeur numérique, tu dois t'assurer que le séparateur décimal est le point en remplaçant la virgule par un point. Car Val n'accepte que le point comme séparateur décimal.
Code:
Private Sub T3_Change()
vT3 = Val(Replace(T3, Format(0, ","), "."))
vT1 = Val(Replace(T1, Format(0, ","), "."))
vT2 = Val(Replace(T2, Format(0, ","), "."))
T3.ForeColor = IIf(vT3 <= vT2 And vT3 >= vT1, vbGreen, vbRed)
End Sub
Re : Comparaison avec une valeur négative dans textbox
Bonjour à tous et merci de votre aide
laetitia, ça ne marche pas! mais c'est pas grave j’apprécie l'aide!
Docmarti, j'ai testé le val avec "." ou "," et ça marche, mais j'ai quand même utiliser ton code car d'après mes recherches cela dépend de la configuration de chaque pc.
Sur mon pc, n'importe quel séparateur fonctionne mais sur un autre ????
Bref j'ai utiliser ton code pour être sure!