Nombre entier sans virgule

bonjour,

j'ai un TextBox dans un UserForm qui permet à l'utilisateur de rentrer la quantité d'un produit.

J'ai utilisé la fonction "IsNumeric" pour contrôler que l'utilisateur rentre bien un nombre.

Mon problème est que je ne sais pas comment interdire les chiffres à virgule et les chiffres négatif

afin d’éviter que l'on écrive : -20 quantité du produit X ou 1,5 quantité du produit Y.

Qui peut m'aider ???

Par avance merci

Bonsoir

Une idée pas des plus parfaite

Private Sub TextBox1_Change()
  If InStr("0123456789", Right(Me.TextBox1, 1)) = 0 Then
    Me.TextBox1 = Left(Me.TextBox1, Len(Me.TextBox1) - 1)
  End If
End Sub

Bonsoir

Bonsoir Banzai

Autre code :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57
MsgBox "Entrez un nombre entier positif"
KeyAscii = 0
End Select
End Sub

Amicalement

Nad

ok,

il n'y a donc pas de fonction équivalente à IsNumeric pour empêcher la virgule ou les nombre négatif

merci à vous deux