MsgBox si valeur d'une textbox sup ou inf

Bonjour à tous,

Je souhaite lorsqu'il y a une valeur supérieur a 0.4 ou inférieur a -0.4 avoir un msgbox d'information lors de la validation du formulaire sans bloquer l'enregistrement.
Mon code :

Code:

---

1 2	If Val(TextBox_difference.Text) > 0.4 Then MsgBox "La valeur est supérieure à la valeur maxi "

---

Ca fonctionne lorsque la textbox est supérieur 0.4, or si j'écris 0.3, je clique sur le bouton valider et rien ne se passe

J'ai essayé de le modifier pour avoir le msg lorsque la valeur est a -0.4

Code:

---

1 2	If Val(TextBox_difference.Text) > 0.4 <-0.4 Then MsgBox "La valeur est supérieure à la valeur maxi & chr(10) & Veuillez contacter votre chef d'équipe et refaire un contrôle"

---

Mais ça ne fonctionne pas :(

A votre avis comment faire pour ajouter le -0.4 et faire valider l'userform si la valeur est en dessous de 0.3 ?
Merci ! :D

Salut.

Attention à la saisie de valeurs numériques. Sur le continent, on considère souvent la virgule comme étant le séparateur décimal. Du coup, ta comparaison utilise du texte et pas une valeur numérique.

Je propose un truc du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim Value   Value = Replace(TextBox_Difference.Value, ".", ",") If IsNumeric(Value) Then If Value > 0.4 Or Value < -0.4 Then MsgBox "Valeur hors normes" Else MsgBox "La valeur saisie n'est pas une valeur numérique" End If End Sub

---

Merci beaucoup !
Ca a fonctionné ! :D