textbox.visible et textbox.setfocus

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:

---

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

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:

---

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

---

Bonjour mercatog,

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

Code:

---

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

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.

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: :oops:

Code:

---

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