VBA : effet de la croix dans une userform
xuorel
Messages postés
253
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
j'ai une userform avec une multipage à l'intérieur de 3 onglets.
Cette userform s'ouvre en faisant CTRL+T.
A chaque fois la userform s'ouvre dans le troisième onglet.
La userform se ferme avec le croix ou en appuyant sur un bouton "valider".
J'ai 2 questions :
- quel est l'effet de la croix rouge dans une userform ? Est-ce que cela équivaut à un hide, à un unload ou à autre chose ?
- Comment faire pour qu'après avoir fermé la UF avec la croix, celle ci se rouvre sur le dernier onglet utilisé ?
Merci
j'ai une userform avec une multipage à l'intérieur de 3 onglets.
Cette userform s'ouvre en faisant CTRL+T.
A chaque fois la userform s'ouvre dans le troisième onglet.
La userform se ferme avec le croix ou en appuyant sur un bouton "valider".
J'ai 2 questions :
- quel est l'effet de la croix rouge dans une userform ? Est-ce que cela équivaut à un hide, à un unload ou à autre chose ?
- Comment faire pour qu'après avoir fermé la UF avec la croix, celle ci se rouvre sur le dernier onglet utilisé ?
Merci
1 réponse
-
Bonjour,
Voir ceci:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-J
pour ce que tu veux faire il faut mettre en mémoire dans une cellule la position de l'onglet comme ceci:
Option Explicit Private Sub CommandButton1_Click() Range("A1").Value = Me.MultiPage1.Value Unload UserForm1 End Sub Private Sub UserForm_Initialize() If Range("A1").Value = "" Then Exit Sub Me.MultiPage1.Value = Range("A1").Value End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Range("A1").Value = Me.MultiPage1.Value End Sub
j'ai pris la cellule A1 de la feuille active à adapter bien entendu
