Textbox chiffre positif

Mon pbl est que je ne veux pas pouvoir rentrer de valeur négatif (ni de lettre) dans textbox1 pour l'instant cela me fait apparaitre une erreur

je pense avoir trouvé le code pour les négatifs (en vert) mais le pbl c'est que je n'ai plus accès au virgule et au point (j'ai besoin de rentrer des chiffres non entier)

Merci d'avance pour vos solutions

Cordialement

FEBFEB

Edit Dan : supprimé majuscule dans titre du sujet

Bonjour Febfeb,

Ajoute ce code

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Et1000lio

Re Febfeb

Pas réveillé ce matin, je n'avais pas vu que tu voulais conserver la virgule ou le point lors de la saisie sur la Textbox1.

Donc je t'ai modifié ton fichier avec le code suivant :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Et1000lio

EXELLENT !!!

MERCI BEAUCOUP

FEBFEB