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

natorp · 20 Août 2014

Bjr à toutes et tous

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

1) malgré le

Code:

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

Code:

Projet ou bibliothèque introuvable

sur cette ligne :

Code:

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

avec "Chr" en surbrillance

Merci pour votre attention, cordialement, Gérard

Pierrot93 · 20 Août 2014

Re : Test sur format numérique textbox qui plante

Bonjour,

essaye ceci :

Code:

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

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

bon après midi
@+

natorp · 20 Août 2014

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 · 21 Août 2014

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

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

natorp

XLDnaute Accro

Pièces jointes

Pierrot93

XLDnaute Barbatruc

natorp

XLDnaute Accro

natorp

XLDnaute Accro

Discussions similaires