Discussion :

[leblesois]

Bonjour le Forum,

je sais, vous allez dire que ce problème a déjà été traité, mais malheureusement, sur votre forum ou sur internet, rien n'explique mon problème...

Je vous ai mis en PJ un fichier excel beaucoup plus simple que celui que je suis en train de réaliser.

Voici donc mon problème : Dans un formulaire, j'ai des textbox et des multipages. Lorsque je saisie un textbox (dans mon exemple le champ PRENOM), une fois que celui ci est validé par la touche ENTRÉE du clavier, je souhaite que mon curseur se place dans un textbox qui se trouve dans un multipage (ici dans TELEPHONE FIXE) .
J'ai donc écrit ce code :

Code :

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

1
2
3
4
Private Sub TextBox_Prénom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.MultiPage1.Value = 0     'pour travailler sur le premier onglet
    'Me.TextBox_Fixe.SetFocus
End Sub

Malheureusement, premier problème, le Setfocus ne fonctionne pas... (c'est pourquoi je l'ai mis en commentaire!).

En plus, deuxième problème, dans le code suivant (donc après avoir renseigné le textbox EMAIL,

Code :

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

1
2
3
Private Sub TextBox_Email_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.MultiPage1.Value = 1
End Sub

le second onglet n'est pas activé, ALORS que dans le code précédent, le premier onglet est bien activé... !

POURQUOI ?????

Pourriez-vous m'expliquez mon problème et surtout m'aider à trouver une solution (il faut absolument que les changements de champ se fasse par la touche ENTRÉE et non pas par la touche de TABULATION (exigence de mon "chef"...)

Merci d'avance

[eriiic]

Bonjour,

Je commence par le plus facile :

le second onglet n'est pas activé, ALORS que dans le code précédent, le premier onglet est bien activé...

Quand tu fais Enter sur l'email, c'est le dernier objet et il ne génère pas Exit, il faut cliquer ailleurs.
Ca peut se résoudre en changeant son .tagIndex de 2 en 1, mais ça change l'ordre. Ou bien ajouter un textbox qui ne servira à rien (le cacher en le mettant plus bas)

pour la 1ère question en tâtonnant j'ai fini par trouver la bonne syntaxe pour atteindre l'objet :

Code :

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

1
2
3
Me.MultiPage1.Pages(0).Controls("TextBox_Fixe")
' ou
Me.MultiPage1.Pages(0).TextBox_Fixe

seulement il n'accepte pas .SetFocus.
Un message d'erreur qui laisse penser que le parent (Page) doit être activé et ne l'est pas.
Et ça se confirme car si on met un point d'arrêt pour cliquer sur l'onglet avant, le .SetFocus passe.
C'est tout pour ce soir :-)
eric

[leblesois]

Bonjour et merci pour ta réponse eriiic, mais malheureusement, chez moi, le code

Code :

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

Me.MultiPage1.Pages(0).TextBox_Fixe

ne permet pas du tout de saisir directement dans le champ Texbox_Fixe...
Sinon, pour mon autre problème, c'est parfait !

[eriiic]

Bonjour,

bien évidemment.
C'est la syntaxe pour atteindre l'objet, à toi d'ajouter la méthode ou propriété voulue derrière.
En l'occurence .SetFocus.
Mais lis en détail ce que je t'ai écrit.
eric

[leblesois]

J'ai bien lu ton message, et j'ai activé le parent page en faisant un

Code :

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

Me.MultiPage1.value=0

, mais cela ne change rien ...

et

Code :

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

Me.MultiPage1.Pages(0).TextBox_Fixe.SetFocus

ne fonctionne pas non plus ...

Je ne vois donc pas du tout ou tu veux en venir, je suis désolé...

[eriiic]

Je pensais être clair sur le point auquel j'étais rendu

Un message d'erreur qui laisse penser que le parent (Page) doit être activé et ne l'est pas.
Et ça se confirme car si on met un point d'arrêt pour cliquer sur l'onglet avant, le .SetFocus passe.

Il est sélectionné, mais pas activé de la même façon qu'un clic dessus le fait.
Cherche dans cette direction.
eric