Pourrait on me dire comment faire pour permettre la saisie de plusieurs caracteres text avec une telle procédure? En effet, je ne peux en taper plus d'un et après je suis bloquée!
De plus après cette procédure je voudrais effacer le textbox dou ma ligne : txtnom.text="" mais ca ne marche pas! Merci pour votre aide!!!
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii = 8 Then Exit Sub
KeyAscii = 0
End If
End Sub