Test sur format numérique textbox qui plante [Résolu]

[natorp]

Bjr à toutes et tous

J'ai beau regarder le code dans tous les sens je ne comprends pas pourquoi :

1) malgré le

TB10.SetFocus

dans le Userform_initialize(), je n'ai pas le curseur dans la cellule "Tel fixe" au démarrage ou qd je clique sur le bouton

2) et surtout quand je veux saisir quelque chose dans le textbox, j'ai un message

Projet ou bibliothèque introuvable

sur cette ligne :

If InStr("0123456789", Chr(KeyAscii)) = 0 Then

avec "Chr" en surbrillance

Merci pour votre attention, cordialement, Gérard

 

[Pierrot93]

Re : Test sur format numérique textbox qui plante

Bonjour,

essaye ceci :

If InStr("0123456789", VBA.Chr(KeyAscii)) = 0 Then

mais à priori des références manquantes chez moi....

bon après midi
@+

 

[natorp]

Re : Test sur format numérique textbox qui plante

Merci Pierrot,

ça marche nickel !!

Avec le code utilisé, si l'utilisateur se trompe, il peut effacer avec la touche "retour arrière" les derniers chiffres tapés, mais pas le tiret et du coup, pas non plus les chiffres précédents. Avez-vous une idée ?

Merci beaucoup, Gérard

 

[natorp]

Re : Test sur format numérique textbox qui plante

Re,

Merci Jean-Marcel : c'est tout à fait ça ! Génial,

Merci à tous les 2 .... Gérard