Discussion :

[Vba14]

Bonjour à tous,

Dans un formulaire, j'ai un Multipage qui contient 6 pages. Chaque page est affichée selon l'onglet de la feuille de calcul.
Jusque là pas de soucis. Mais j'essaie de mettre le focus dans un contrôle de la page du Multipage, le focus change à chaque page puisque les contrôles sont différents.

J'ai essayé ce code mais ça ne fonctionne pas, code mis dans l’initialise de l'UF :

Code :

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

1
2
3
4
 
If MultiPage1.Value = 0 Then 'si l'index de la page est 0 (Page "Articles") alors
Me.Txt_DesignArticle.SetFocus 'le focus est donné au contrôle Txt_DesignArticle
End If

Si l'index est = 1 (Page "Client") alors le focus sera donné au contrôle Txt_NomClient et ainsi de suite pour mes 6 pages

Pourriez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

[Vba14]

J'ai trouvé une solution :

Cela à l'air de fonctionner, au-moins pour le premier index. Maintenant il faut ajouter tous les autres.
Merci à leblesois pour sa solution donnée dans une discussion similaire.

https://www.developpez.net/forums/d1...cus-multipage/

Code :

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

1
2
3
4
5
6
 
  Me.MultiPage1.Value = 0
  Me.MultiPage1.SetFocus
  On Error Resume Next
  Me.Txt_DesignArticle.SetFocus
  On Error GoTo 0

[mercatog]

Je crois t'avoir répondu.
En mode création
Affecte la valeur 0 à la propriété Tabindex du textbox désiré
Répète l'opération pour chaque page.

Si tu n'arrive pas. Laisse tomber

[Vba14]

Bonsoir mercatog,

C'est ce que j'ai fait, mais ça ne fonctionne pas. Le focus ne prend pas.

C'est pourquoi j'ai mis le code que j'ai présenté.

Merci pour ta réponse

Cordialement

[mercatog]

Si tu le dis...

[Vba14]

Bonjour,

Regarde tu vois bien que l'index est à 0 et c'est la même chose pour les autres pages.

Doc1.docx