Repositionner le curseur dans une Texbox sous VBA

[invite1de16a4c]

Bonjour,

je suis complétement novice dans ce genre de programmation mais j'aimerais repositionner le curseur clignotant dans une textbox si cette valeur n'est pas bonne.
J'ai consulté plein de sites différent ou il y avait des solutions mais cela ne marche pas.Aussi je fais appel à vous.

J'ai un Userform nommé "ajout" et une Textbox "champ_date" puis une deuxiéme Textbox "champ_nom"
Quand je saisi une valeur dans "champ_date" si ce n'est pas bon j'affiche une MsgBox ,je remets la valeur à 0 et j'aimerai que le curseur se repositionne sur "champ_date" mais il va systématiquement sur "champ_nom" et je ne vois pas pourquoi.J'ai essayé plein de solutions copiées sur d'autres forums mais idem.Je vous joints ce que j'ai écris et si une âme charitable passe par là et veut bien m'aider cela serait super sympa.


Private Sub champ_date_AfterUpdate()
'vérifie que la date soit valide'
If Not IsDate(champ_date) Then
MsgBox "Votre date n'est pas valide" & Chr(10) & "Resaisir une date correcte", vbExclamation
champ_date = ""
champ_date.SetFocus



End If
End Sub

J'ai cherché à quoi sert les différentes fonctions (si c'est bien le terme) style AfterUpdate mais je n'ai rien trouvé dessus alors peut être que c'est la que je fais fausse route.

Je vous l'ai dit je suis novice et j'essaie de m'auto formé sur des petites applications afin de mieux comprendre cette programmation qui semble trés complexe.

Merci d'avance.

Cordialement
-----

[invite1de16a4c]

Bonjour,

Personne n'est inspiré par demande ?
J'ai continué à cherché sur différents sites avec d'autres solutions mais sans succés, alors si personne ne réponds je continuerais à chercher.

Merci d'avance.

Cordialement

[invite0bbe92c0]

Bonjour

Visiblement ça ne marche pas : http://www.developpez.net/forums/d25...focus-textbox/

SetFocus semble capricieux en VBA.

[invite0bbe92c0]

Eventuellement, force la sélection du Texte avec SelStart et SelLength.

[A voir en vidéo sur Futura]

[invite1de16a4c]

Bonjour,

merci beaucoup des renseignements, je vais essayer cela et je vous tiens au courant du résultat.
J'avais déjà été sur Développez.com mais je n'avais pas trouvé cette info

Merci

Cordialement

[invite1de16a4c]

Bonjour,


j'ai essayé ce qu'il y a sur le lien mais cela ne marche pas.Je suis sur que je dois faire une erreur quelque part mais où?

Quand au fonction SelStart et SelLength, je ne sais pas comment m'en servir donc plutot que de vous demander une solution toute faite, si vous avez un livre à me conseiller pour me former car j'ai envie d'améliorer des tableaux que j'ai élaboré sous excel et avec des formulaires cela sera plus sympa.
Etant novice dans ce domaine, je ne maitrise rien du tout et j'aimerai comprendre un peu mieux les choses comme le choix d'un événement plutôt qu'un autre,etc... connaitre des fonctions de bases.
Si vous avez des conseils pour que je progresse, je suis preneur.

Merci d'avance.

Cordialement