Curseur automatique dans textbox

[Jacques25]

Bonjour,

J'aurais besoin d'un peu d'aide pour un tout petit code que j'ai fait à l'ouverture d'un fichier. Le problème est pourtant très simple mais je n'arrive pas à le résoudre.

A l'ouverture de mon fichier un userform est affiché comprenant
3 bouton d'option
1 zone de texte
1 bouton de commande

Je voudrais que lorsque je clique sur 1 des 3 boutons d'option, le curseur aille dans la textbox pour saisir directement sans être obligé de cliqué dessus.
Voici le code d'un des trois boutons d'option :

Private Sub OptionButton1_Click()
Label4.Visible = True
Label4.Caption = "Date d'ouverture :"
TextBox1.Visible = True
End Sub

J'ai essayé avec Tabindex mais ça ne marche pas. Je pensai même que sans rien faire le curseur irait directement dans la textbox...

Donc si vous pouvez m'éclairer je suis preneur.
Merci à tous

Jacques

 

[Pierrot93]

Re : Curseur automatique dans textbox

Bonjour,

peut être ainsi :

Private Sub OptionButton1_Click()
Label4.Visible = True
Label4.Caption = "Date d'ouverture :"
TextBox1.Visible = True
TextBox1.SetFocus
End Sub

bon après midi
@+

 

[mutzik]

Re : Curseur automatique dans textbox

bonjour,

objet.setfocus devrait le faire

arff, Pierrot m'a encore grillé au poteau

 

[Jacques25]

Re : Curseur automatique dans textbox

Bonjour Pierrot,

C'est bon ça marche, merci de ta rapidité.

Bonne soirée