VBA : effet de la croix dans une userform
xuorel
Messages postés
265
Statut
Membre
-
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
A voir également:
- VBA : effet de la croix dans une userform
- Excel compter cellule couleur sans vba - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
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:
j'ai pris la cellule A1 de la feuille active à adapter bien entendu
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