Auttoriser que les chiffres dans une text box

Signaler
Messages postés
155
Date d'inscription
jeudi 10 juin 2004
Statut
Membre
Dernière intervention
12 novembre 2009
-
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
-
salu
je voudrai savoir si on peut auttoriser que les nombre den une text box

merci

2 réponses

Messages postés
171
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Salut,

Très simple en effet tu dois copier ce petit bout de code dans la sub Text1_Change du contrôle TexBox :

If Asc(Text1) < 48 Or Asc(Text1) > 57 Then Text1.text = ""

Le TexBox ne prendra que les valeurs comprises entre 0 et 9.

N'oublie de mettre un On Error Resume Next avant ce code sinon ça provoquera une erreur quan tu écriras dans le champ.

@+++ ;)
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Question déjà posée ici et toujours la même réponse :

Dans le keypress :

if keyascii > 31 and (keyascii <48 or keyascii > 57) then keyascii = 0

le keyascii > 31 c pour éviter de bloquer les bacspace, flèches, return, ...

Cordialement

CanisLupus