Discussion :

[SenseniX]

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.

[Krovax]

Bonjour
essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SenseniX]

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

[SenseniX]

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.

[laetitia]

bonjour SenseniX l'ami krovax le forum essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[random]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SenseniX]

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

Edit : marche nikel, merci à vous.