N'autoriser que la Saisie de chiffres dans un champ texte

Commenter

Contenu du snippet 

Private Sub BoiteAChiffres_KeyPress(KeyAscii As Integer)
'Keypress

Dim chaine
chaine = "0123456789 "
If InStr(1, chaine, Chr(KeyAscii)) = 0 And Not KeyAscii = 8 Then

    'KeyAscii = 8 est la touche Del
    'On bloque ce qui n'est pas compris dans la variable chaine sauf la touche Del

    Beep
    KeyAscii = 0
    'On assign un KeyAscii vide à la text box
End If
End Sub

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_bultez)