Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA USF: masquer temporairement un userform sans passer par UserForm_Activate

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Guy_M
  • 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 !

S'inscrire
G

Guy_M

XLDnaute Occasionnel
Bonjour,

J'ai un petit problème avec le masquage et l'affichage d'un userform. J'ai joint un petit fichier de simulation pour que vous puissiez tester.

Mon userform est grand et donc masque une partie de l'écran. A un moment, je pose une question à propos de la feuille Excel sélectionnée et pour que l'utilisateur puisse bien voir la feuille, je souhaite masquer le userform puis le réafficher.

Bêtement, je pensais qu'avec un "me.visible = True/False" marcherait. Mais VBA pour Excel ne le permet pas. Je doit donc utiliser le couple (infernal) me.hide et me.show. Gros souci, chaque me.show appelle la procédure évènementielle UserForm_Activate et donc tout ce qui vient après n'est pas exécutée immédiatement mais quand je ferme le userform.

J'ai tracé tout ça avec une série de debug.print, je simule le comportement souhaité de ma procédure avec le bouton "BoutonTestHideShow" dans le userform
Code: 
LancerLeTest_Clic:début
UserForm_Initialize:debut
ActionInitiale
UserForm_Initialize:fin
UserForm_Activate
BoutonTestHideShow_Click:début
UserForm_Activate
BoutonFermer_Click:debut
BoutonFermer_Click:fin
BoutonTestHideShow_Click:fin
LancerLeTest_Clic:fin

Marche à suivre pour reproduire cette trace dans la fenêtre d'exécution : cliquer sur "Lancer le test" puis sur "Test hide/show" (vous pouvez cliquer plusieurs fois) et pour finir sur "Fermer".

Que puis-je faire pour afficher/masquer le userform sans que UserForm_Activate ne s'exécute ?

Par avance, je vous remercie de vos réponses.
Guy
 

Pièces jointes

Trier par date Trier par votes
Re : VBA USF: masquer temporairement un userform sans passer par UserForm_Activate

Bonjour,

essaye comme ceci, pas testé avec tes "Debug.Print", pas mon truc...

Code: 
Dim b As Boolean
Private Sub BoutonFermer_Click()
Debug.Print "BoutonFermer_Click:debut"
Unload Me 'Décharge le formulaire en mettant le contenu à zéro (aux valeurs par défaut)
Debug.Print "BoutonFermer_Click:fin"
End Sub
Private Sub BoutonTestHideShow_Click()
Debug.Print "BoutonTestHideShow_Click:début"
Me.Hide
    MsgBox (Me.Name & " masqué pour voir les feuilles de calcul")
MsgBox ("BoutonTestHideShow_Click: Userform visible : " & Me.Visible)
If Not Me.Visible Then b = True: Me.Show
Debug.Print "BoutonTestHideShow_Click:fin"
b = False
End Sub
Private Sub UserForm_Activate()
If b Then Exit Sub
Debug.Print "UserForm_Activate"
End Sub
Private Sub UserForm_Initialize()
Debug.Print "UserForm_Initialize:debut"
ActionInitiale
Debug.Print "UserForm_Initialize:fin"
End Sub
Private Sub ActionInitiale()
MsgBox "Action initiale"
Debug.Print "ActionInitiale"
End Sub

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : VBA USF: masquer temporairement un userform sans passer par UserForm_Activate

Bonjour,

J'ai trouvé une première solution de contournement en déplaçant le userform hors de l'écran, je remplace Me.Hide par :
Code: 
Haut = Me.Top
Gauche = Me.Left
Me.Top = -Me.Width
Me.Left = -Me.Height
puis Me.Show par
Code: 
Me.Top = Haut
Me.Left = Gauche

Ça marche mais je ne trouve pas ça très élégant.

A bientôt
Guy
 
Vote positif 0 Vote négatif
Re : VBA USF: masquer temporairement un userform sans passer par UserForm_Activate

Merci Pierrot93 et phlaurent55 pour vos réponses

Malheureusement, Pierrot93 ta proposition ne change rien à l'affaire. Mais pourquoi "Me.Visible = True" est interdit ?

A bientôt
Guy
 
Vote positif 0 Vote négatif
Re : VBA USF: masquer temporairement un userform sans passer par UserForm_Activate

Re,

bah... supprime le test "me.visible", à noter dans l'aide vba "visible" ne s'applique pas à l'userform...
 
Vote positif 0 Vote négatif
Re : VBA USF: masquer temporairement un userform sans passer par UserForm_Activate

salut

voir Si... cela peut convenir

Dans l'Usf en ShowModal = False
Code: 
Private Sub Bouton_Click()
   Me.Hide
End Sub

pour revoir le formulaire : clic en A1 (ou autre et pour tout onglet)
Dans ThisWorkbook
Code: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
  If R.Address = "$A$1" Then UserForm1.Show
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
613
job75
  • Résolu(e)
Word Masquer temporairement un bouton macro VBA
Réponses
4
Affichages
1 K
Azuveus
C
  • Question Question
Microsoft 365 Appliquer un calcul à la formule VBA qui recherche la dernière valeur d'un tableau en fonction d'un critère
Réponses
11
Affichages
2 K
CaptainSalt31
C
M
  • Résolu(e)
Microsoft 365 userform msgbox + empecher ouverture par un autre utilisateur si déjà ouvert
Réponses
2
Affichages
1 K
Mwadepaname
M
M
  • Question Question
Microsoft 365 VBA : Listes déroulantes en cascade dans un UserForm
Réponses
8
Affichages
3 K
MathisC
M
  • Question Question
XL 2010 [VBA] Compatibilité taille d'une image dans un Userform
2
Réponses
22
Affichages
5 K
patricktoulon
C
  • Question Question
XL 2016 [résolu] Création d'un vote via VBA et Userform
Réponses
3
Affichages
2 K
chaps42
C
  • Question Question
Forcer l'ouverture sur un feuille sans workbook_open
Réponses
12
Affichages
5 K
zorglubxp
A
  • Question Question
Résolu ! Double-click sur lisbox pour alimenter un autre userform : Résolu !
Réponses
11
Affichages
6 K
~ Arnaud ~
A
T
  • Question Question
VBA / Générer un inventaire ignorer les cellules vides
Réponses
5
Affichages
4 K
jp14
J
C
  • Question Question
valider un userform par le renvoi vers un autre.
Réponses
4
Affichages
1 K
chewwe1602
C
  • Question Question
saisie sans doublons par userform
Réponses
13
Affichages
3 K
cathodique
B
  • Question Question
Probléme de sous total et de graphique le tout grace à un userform
Réponses
0
Affichages
1 K
baguidi
B
N
  • Question Question
[Résolu]VBA - Récupération de nom et de valeur sans passer par une variable
Réponses
11
Affichages
2 K
NeMoS
N
T
  • Question Question
Importer et exporter des plages entre deux classeurs
Réponses
1
Affichages
992
youky(BJ)
N
  • Question Question
Procédure avec msgbox et userform délicate
Réponses
10
Affichages
2 K
nounbxl76
N
  • Question Question
Affecter une commande a un controle non visible dans VBE (Macro VBA)
Réponses
8
Affichages
2 K
MartiFab
J
  • Question Question
UserForm et macro plusieurs parametres
Réponses
1
Affichages
1 K
jacquesJ
J
L
  • Question Question
Appeler un fichier Excel par VBA
Réponses
1
Affichages
15 K
Pierrot93
  • Question Question
Remplir formulaire HTML par macro VBA
Réponses
5
Affichages
29 K
JerCaz
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…