Setfocus et multipage

Version imprimable

15/11/2018, 15h15
leblesois

1 pièce(s) jointe(s)

Setfocus et multipage
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:

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:

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
17/11/2018, 00h39
eriiic
Bonjour,

Je commence par le plus facile :

Citation:

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:

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
17/11/2018, 12h09
leblesois

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

Code:

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 !
17/11/2018, 14h31
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
17/11/2018, 14h35
leblesois

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

Code:

Me.MultiPage1.value=0

, mais cela ne change rien ...

et

Code:

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é...
17/11/2018, 14h59
eriiic

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

Citation:

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
17/11/2018, 15h03
leblesois

Waouh, subtile..

Je pensez qu'en sélectionnant un controle, cela l'activait automatiquement. Je vais essayer de trouver comment l'activer alors...

Merci Eriiiic

1 pièce(s) jointe(s)

Salut

que fais-tu du Cancel ?

La sortie possible sera faite avec n'importe autre sélection de contrôle
Si tu veux le TextBox_Fixe sélectionne le TextBox_Fixe sinon pas sur la touche Entrer mais avec un clic sur un label ajouté.
Ton code sera
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub UserForm_Initialize() MultiPage1.Value = 0: TextBox_Nom.SetFocus End Sub Private Sub TextBox_Nom_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = TextBox_Nom = "" 'saisie obligatoire End Sub Private Sub TextBox_Prénom_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = TextBox_Prénom = "" 'saisie obligatoire End Sub Private Sub Suite_Click() 'Label nommé Suite TextBox_Fixe.SetFocus End Sub
Remarque : pourquoi un "Multipage" ? Deux contrôles ""Frame" font aussi bien l'affaire (sans les problèmes du premier); tu en as un exemple joint.

Nota : avec quoi as-tu créé ton classeur ? Je ne peux rien y écrire et dans n'importe quelle feuille et, certaines fois, je ne peux plus fermer Excel !

17/11/2018, 16h40
leblesois

Merci OrDonc pour le temps passé sur mon problème.

En fait, le petit fichier transmis n'est qu'un exemple car le vrai fichier de travail contient une multitudes d'informations classées grâce aux 9 onglets de mon multipage. Donc le Multipage est vraiment indispensable !

Ton idée d'un Label "Suite" n'est pas possible, car les personnes qui utilisent le vrai fichier font de la saisie au km, et les champs doivent se renseigner en utilisant le moins possible la souris (directive donnée par mon chef...) et pas de "TAB" mais uniquement "ENTER" !

C'est pourquoi, il est impératif qu'après la saisie du champ PRENOM (dans mon exemple) le curseur doit être dans le textbox "FIXE" ! Ce que je n'arrive pas à faire... Je m'arrache les cheveux depuis des jours et aucune solution à ce jour... SNIFF !

Quant à ton problème indiqué dans ton NOTA, je ne comprends pas du tout car moi, tout fonctionne (Excel 2016)

Merci pour ton aide (je ne connaissais pas l'astuce du CANCEL :lol:), C'est super !

Re

Or tu as un patron qui ne saurait pas le faire en exigeant la touche Entrer ? :wow:
Donc essaie ce code - en changeant d'évènement (touche appuyée)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
  MultiPage1.Value = 0: TextBox_Nom.SetFocus  
End Sub
Private Sub TextBox_Nom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cancel = TextBox_Nom = ""
End Sub
Private Sub TextBox_Prénom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cancel = TextBox_Prénom = ""
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then MultiPage1.SetFocus
End Sub
Private Sub MultiPage1_Enter()
  TextBox_Fixe.SetFocus
End Sub

information : je fonctionne avec la version 2010 ; ce qui peut expliquer mon problème

17/11/2018, 17h36
leblesois
Cela fonctionne avec mon petit fichier... Lundi je verrai si cela fonctionne au boulot.

Cependant, je ne comprends pas le code. En effet, tu as ecrit
Code:

1 2 3 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then MultiPage1.SetFocus End Sub
Question d'un novice, pourquoi TEXTBOX1_Keydown ? car il n'y a aucun textbox1 sur le fichier, et pourtant cela fonctionne !!! Comprends pas là !!! Il devrait y avoir un message d'erreur ???
17/11/2018, 19h05
OrDonc

Citation:

Envoyé par leblesois

Question d'un novice ...

Réponse d'un novice : C'est la surprise du Chef ! :mouarf:

As- essayé Private Sub TextBox_prénom_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ? Bizarre, bizarre…

Au hasard des recherches personnelles j'avais découvert ce comportement particulier de l'évènement Keydown mais les arcanes de la conception d'Excel n'étant totalement inconnues, j'ai passé mon chemin sans oublier cette anomalie. Depuis mes débuts avec ce tableur, une dizaine d'années, je découvre, en dilettante, bien des choses !
17/11/2018, 19h44
leblesois

Effectivement, curieux ...

Je viens de voir un problème dans ta solution.

En effet, après avoir renseigné le multipage, si on clic sur un textbox en dehors de multipage et que l'on reclic dans un textbox du multipage (pour y apporter une correction par exemple, cela entraîne un message d'erreur ... Donc ta solution est à 99,99% parfaite (si lors de la saisie, on est pas obligé de revenir en arrière ...).

Si tu as une solution, je suis preneur ;-)

Bon week-end !

re
arrive-t-on au bout du bout avec cela ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox_Nom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cancel = TextBox_Nom = ""
End Sub
Private Sub TextBox_Prénom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cancel = TextBox_Prénom = ""
End Sub
Private Sub Me_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  MultiPage1.Value = 0: TextBox_Nom.SetFocus
  If KeyCode = 13 Then MultiPage1.SetFocus
End Sub
Private Sub MultiPage1_Enter()
  MultiPage1.Value = 0:  MultiPage1.SetFocus
  TextBox_Fixe.SetFocus
End Sub

Bon dimanche

18/11/2018, 11h02
leblesois

Bonjour,

hélas non, j'ai toujours un message d'erreur lorsque je quitte le multipage en cliquant dans un textbox (hors du multipage) pour par exemple apporter une correction et que je reviens dans le multipage...

J'ai le message suivant :

Citation:

Erreur d'exécution '2110' :
Le focus ne peut-être déplacé sur le contrôle car celui-ci est invisible, non activé, ou d'un type n'acceptant pas le focus.

Et curieusement, cela ne le fait que si on revient dans le 1er onglet. Si on clic dans le second, aucun message d'erreur ... De plus en plus dingue mon PB ...

Donc si vous avez une solution...
18/11/2018, 11h22
leblesois
En fait, à force de chercher, j'ai trouvé cette astuce : mettre une "gestion des erreurs" et cela ne bloque plus et tout semble fonctionner !
Code:

1 2 3 4 5 6 7 Private Sub MultiPage1_Enter() MultiPage1.Value = 0 MultiPage1.SetFocus On Error Resume Next TextBox_Fixe.SetFocus On Error GoTo 0 End Sub
Un grand merci pour votre aide ! (je ne mets pas en résolu car j'attends de voir ce que cela va donner lundi sur le fichier du boulot...)