Choix de la page dans un multipage (UF)

  • Initiateur de la discussion Initiateur de la discussion Ours masqué
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Ours masqué

XLDnaute Junior
Bonjour à tout le forum,

Je vous remercie de votre attention. J'ai un double petit problème :

j'ai une userform avec un outil multipage pour paramètrer les options de calcul de ma base de données.
Le premier problème : si je ne remets pas la page 1 en premier dans l'éditeur VBA, quand je fais apparaitre mon UF, une erreur apparait '2110 le focus ne peut pas être déplacé sur le contrôle qar celui-ci est invisible'. Je ne trouve pas quelle instruction mettre dans l'initialisation de l'UF pour mettre le multipage en page 1 dès le départ et éviter cette erreur.

Et si je ne me trompe pas, mon UF fonctionne. Une page n'apparait que si je clique sur un commandbutton et quand je clique sur ok, cette page disparait à nouveau (tout va bien) mais je ne sais pas revenir là non plus en page 1. Ca me remet sur la page juste précédente.

Je suis conscient que ma demande n'est peut être pas claire. Je joins mon UF.
Je remercie du fond du coeur ceux qui voudront bien se pencher sur mon problème.

Bonne soirée à ceux qui m'ont lu.
Ours masqué.
 

Pièces jointes

Re : Choix de la page dans un multipage (UF)

Bonsoir,

en fin de code d'initialisation, en modifiant cette ligne :

Code:
Me.MultiPage1.Pages(1).Enabled = True

Cela semble fonctionner
Par contre, pour le reste, ne disposant pas de l'onglet "Options".....
 
Re : Choix de la page dans un multipage (UF)

Bonsoir,

Désolé de me répondre, ce n'est pas le but mais comme j'ai sollicité votre aide et que j'ai trouvé entre temps une solution, je vous la partage et ça aidera peut être ceux qui me liraient à comprendre ma question :

il suffit de mettre Me.Multipage1.Value = 0 dans l'initialisation de l'UF pour qu'elle s'ouvre en page 1. Pour le deuxième problème, quand je fais Ok, pareil, je remets ce Multipage1.Value = 0.

Merci aux archives, je n'avais pas été suffisamment attentif :
https://www.excel-downloads.com/threads/multipage-arriver-sur-la-page-voulu.93447/

Bonne soirée à tous...
Ours masqué.
 
Re : Choix de la page dans un multipage (UF)

Bonsoir,

en fin de code d'initialisation, en modifiant cette ligne :

Code:
Me.MultiPage1.Pages(1).Enabled = True

Cela semble fonctionner
Par contre, pour le reste, ne disposant pas de l'onglet "Options".....

Bonsoir BhBh,
Merci beaucoup pour ton aide. Je regrette que mon fichier soit si obscur mais je ne peux pas lancer les données sans trop les modifier.
Il y a une minut, je ne savais pas ce qu'était ce multipage1.value. Ca répond à mon problème mais j'avais cherché sur ce page(1).enabled. Pourtant, je ne comprends pas à quoi ça sert. Qu'est-ce que ça change ?

J'essaie de refaire mon fichier joint si ça peut aider...

Merci
Ours masqué.
 
Re : Choix de la page dans un multipage (UF)

Bonsoir encore BhBh et le forum,

Pour comprendre le problème 1 dans ma question, dans l'éditeur VBA, changer la page apparente du multipage et relancer l'UF par le bouton sur la feuille : là, ca met l'erreur.

Merci encore
 
Re : Choix de la page dans un multipage (UF)

Bonsoir le forum,

Décidément, je vais me coucher, je fais n'importe quoi :
Page(1).enabled = true ou false permet juste d'accéder ou non à la page 2 (et c'est là le truc avec Option base 0 de mon multipage.
C'est promis, je réfléchis avant de poser mes questions.

Merci quand même de tout coeur à BhBh
Bonne nuit.

Une question quand même et là j'ai réfléchi :
Option base 1, où faut il le mettre : juste au début du module pour tout le module où dans chaque procédure ? Et est vraiment utile ? L'aide de VBA n'est pas bien claire là dessus...
Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
Réponses
20
Affichages
1 K
Retour