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
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

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
salut merci pour le code. j'aimerai un code comme ca mais aussi autorisé la touche backsapce en cas d'erruer qlq peut m'aide merci d'anavce
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 juin 2008

14 avril 2003 à 13:20
Dans ce cas la:
If InStr("0123456789" & Chr(8), Chr(KeyAscii)) 0 Then KeyAscii 0
Gvb
Messages postés
19
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
5 novembre 2004

14 avril 2003 à 08:13
N'oubliez pas qu'il faut pouvoir autoriser l'utilisation de la touche "Backstab" en cas d'erreur et éventuellement "Return" pour validation dans ce genre de textbox.
@+
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 juin 2008

14 avril 2003 à 08:05
Ou encore If InStr("0123456789",Chr(KeyAscii)) = 0 Then KeyAscii = 0
Je trouve que c'est la méthode la + simple pcq tu mets tous les caractères que tu veux taper seulement :D
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
14 avril 2003 à 05:15
Met plutot cela......

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...