Ecrire que du numérique dans une textbox

Bonjour à tous, je suis embêté car je ne trouve pas de code me permettant de n'écrire que du Numérique dans une textbox.
Il s'agit d'une textbox où sera inscrit un Gencod pour une fiche article.


Merci de votre aide.

Bonjour
essaye

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not Chr(KeyAscii) Like "#" Then KeyAscii = 0 End Sub

---

cela permet de taper des nombre entier; Pas de virgule regade l'aide sur like pour autoriser d'autre infos

Un grand merci, ça marche nikel !
Encore merci.

Encore moi, j'aurai besoin que la virgule soit accessible car j'ai besoin de ce code aussi pour afficher un prix.
Alors j'ai essayer un peu mais j'arrive à faire l'un ou l'autre des deux contraintes mais pas les deux.

bonjour SenseniX l'ami krovax le forum essai comme cela

Code:

---

1 2 3

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

---

en reprenant le très bon code déja fourni

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (Chr(KeyAscii) Like "#" or Chr(KeyAscii) Like "," ) Then KeyAscii = 0 End Sub

---

Ok j'esai ça, merci à vous, je vous tiens au courant.

Edit : marche nikel, merci à vous.