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