Position curseur dans textbox

[jacks39]

Bonjour à tous,

Dans un textbox d'un USF, j'effectue un contrôle de la saisie. Si la saisie ne correspond pas à la valeur souhaité, j'efface le contenu de la textbox et affiche un message d'erreur.
Je voudrais repositionner le curseur dans la textbox pour une nouvelle saisie. J'ai essayé plein de trucs, mais Sans succès. Le curseur se positionne toujours dans la textbox suivante. C'est pourtant certainement tout bête !

Merci pour votre aide !

Rany

 

[jpb388]

Re : Position curseur dans textbox

Bonjour a tous
as tu essayé me.txt.setfocus

 

[jacks39]

Re : Position curseur dans textbox

jpb388,
je débute en vba et je ne connais pas cette fonction.
Peux tu m'expliquer ou la placer et comment ça fonctionne stp ?

Rany

 

[Guest]

Re : Position curseur dans textbox

Bonjour,

Faire les tests dans l'évènement BeforeUpdate du text box et mettre Cancel=true si le test echoue:
exemple (ici un textbox sensé recevoir une date) le focus restera dans le textBox TANT qu'il ne recevra pas un texte pouvant être interprété comme une date:

Private Sub tbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
   if not isDate( tbDate.text) then 
            tbDate.text=format(Date,"dd/mm/yyyy") 'valeur par défaut
           Cancel = true
   else
      'si c'est une date
   End if
 ' ou test simple sur date:
'  Cancel = Not IsDate(tbDate)

End Sub

ATTENTION:cette méthode peut être contraignante, mettre une valeur par défaut qui réponde au test, permet à l'utilisateur de quitter le textBox.

A+

 

[jacks39]

Re : Position curseur dans textbox

Bonjour,

ça marche pour moi !

Merci Hasco !!!