Discussion :

[casefayere]

Bonjour à tou(te)s,

Je rencontre un problème qui m'était inconnu jusqu'à ce jour,
A l'ouverture de mon USF, je rends invisible tous les controles, exceptés les "OptionButton", si je coche un OptionButton, je rends visible ma première textbox et lui donne le focus, jusqu'ici, pas de problème, ensuite comme j'ai donné ce code à cette textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TbNom_AfterUpdate()
If TbNom <> "" Then TbOuvrantdroit.Visible = True: Label4.Visible = True: TbOuvrantdroit.SetFocus
End Sub

"TbNom" étant le nom de la textbox et "TbOuvrantdroit" le nom de la textbox à rendre visible et à laquelle donner le focus.
Malgré tout "TbOuvrantdroit" ne prend pas le focus, ni aucune des suivantes, que je rends visible sur le même principe, au préalable.

Je serais content de lire celui ou celle qui pourrait me donner une solution.

D'avance Merci et bonne journée

[mercatog]

Bonjour Dominique
Normal, puisque l'afterupdate n'est déclenché qu'après que le focus est ailleurs.

Je procéderai par étapes en utilisant Change pour afficher/masquer le TextBox suivant et Exit pour donner le focus si le TextBox suivant est visible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
 
Me.TextBox2.Visible = Me.TextBox1 <> ""
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
If Me.TextBox2.Visible Then Me.TextBox2.SetFocus
End Sub

[casefayere]

Bonjour mercatog,

Merci de ta réponse, j'ai appliqué strictement tes conseils :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TbNom_Change()
Me.TbOuvrantdroit.Visible = Me.TbNom <> ""
End Sub
Private Sub TbNom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TbOuvrantdroit.Visible Then Me.TbOuvrantdroit.SetFocus
End Sub

mais le 2ème textbox ne prend toujours pas le focus et je me retrouve avec un message d'erreur (voir ci-dessous), à la ligne (voir image également).
J'ai essayé pas mal de solution mais je n'ai toujours pas trouvé la bonne.

Bonne journée en attendant

[mercatog]

J'ai testé la proposition sur mon fichier vierge avec 2 simples TextBox.

TextBox2 est invisible à l'ouverture
Quand je saisie quelque chose dans TextBox1, TextBox2 devient visible et je peux y accéder par tabulation.

Essaies sur un fichier nouveau.

[casefayere]

Je suis confus mercatog, je n'avais pas précisé que mes controles sont dans un multipage, avec tes conseils, j'ai enfin trouvé la solution, il fallait préciser le nom du multipage et de la page:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TbNom_Change()
MP1.Pages(0).TbOuvrantdroit.Visible = MP1.Pages(0).TbNom <> ""
End Sub
Private Sub TbNom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If MP1.Pages(0).TbOuvrantdroit.Visible Then MP1.Pages(0).TbOuvrantdroit.SetFocus
End Sub

Encore merci