Problèmes Isnuméric

[flint6593]

Bonjour,

J'ai un petit souci que je ne comprend pas. Je fais un test dans ma textbox, seulement des numériques, et tout fonctionne correctement, sauf que lorsque je met un - ou un + après un chiffre, je n'ai pas d'erreurs...
J'ai bien l'erreur qui s'affiche seulement lorsque je rentre un 3ème caractères...

J'ai testé avec les autres caractères et pas de soucis, seulement pour les + et les - ...
Quelqu'un a déjà eu ce souci??? J'ai rien trouvé sur le net...

merci!!!!

Mon prog:

Private Sub textbox_Change()
If Not IsNumeric(UserForm2.textbox.Value) And UserForm2.textbox.Value <> "" Then
MsgBox "*** Erreur! Valeurs uniquement numériques ***", , "ATTENTION!"
UserForm2.textbox.Value = ""
End If
End Sub

 

[flint6593]

Re : Problèmes Isnuméric

J'ai trouvé la solution pour ceux que ça interresse:

If Not IsNumeric(UserForm2.textbox.Value) And UserForm2.textbox.Value <> "" _
Or UCase(UserForm2.textbox.Value) Like "*-*" Or UCase(UserForm2.textbox.Value) Like "*+*" Then

J'ai rajouté le like!!!!! Nickel!!!!!