Pronlème de vérification

[Reeper]

Bonjour,

je souhaite vérifier que l'utilisateur ait bien saisi un nombre comprit entre 0 et 10000

pour cela j'ai déclaré :

StringQuantité = '[0-10000]'

et pour la vérification j'ai fait :

If (Quantité Like StringQuantité) Then
...
Else
'message d'erreur
MsgBox ('La quantité n'à pas été correctement saisie')
End If

Sachant que la variable Quantité vient d'une TextBox :

Quantité = TextBoxQuantité.Value

Le problème c'est que lorsqu'on entre un nombre > 9 , pour lui la valeur saisie n'est pas vadide.

Merci pour votre aide

 

[Franck]

Salut Reeper

tappes IsNumeric dans l'aide VBA c'est tres bien expliqué

pour le reste
if TextBox1.value > 10000 then
Msgbox'ton message'
else
...
end if

( je pense que la saisie est dans un textbox ?? )

A +
Franck

 

[Reeper]

Ok merci ça fonctionne !!

Je ne connaisais pas cette fonction