RESTREINDRE UNE ENTRÉE DANS TEXTBOX AU CLAVIER NUMÉRIQUE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
14 avril 2003 à 05:15
ehectsamira Messages postés 14 Date d'inscription mardi 8 février 2005 Statut Membre Dernière intervention 11 janvier 2008 - 8 déc. 2007 à 22:56
ehectsamira Messages postés 14 Date d'inscription mardi 8 février 2005 Statut Membre Dernière intervention 11 janvier 2008 - 8 déc. 2007 à 22:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6726-restreindre-une-entree-dans-textbox-au-clavier-numerique
https://codes-sources.commentcamarche.net/source/6726-restreindre-une-entree-dans-textbox-au-clavier-numerique
8 déc. 2007 à 22:56
14 avril 2003 à 13:20
If InStr("0123456789" & Chr(8), Chr(KeyAscii)) 0 Then KeyAscii 0
14 avril 2003 à 08:13
@+
14 avril 2003 à 08:05
Je trouve que c'est la méthode la + simple pcq tu mets tous les caractères que tu veux taper seulement :D
14 avril 2003 à 05:15
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii < asc("0") Or KeyAscii > asc("9") Then KeyAscii = 0
End Sub
ca evite d'avoir a connaitre les codes ascii par coeur, et c'est plus parlant...