auttoriser que les chiffres dans une text box

salu
je voudrai savoir si on peut auttoriser que les nombre den une text box


merci

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.

@+++

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