Desactiver et masquer tous les usf Actifs

[gds35]

Mes AMIS du forum Bonsoir ,

Je cherche lorsque je clic sur un bouton a desactiver et fermer l'ensemble des USF que j'ai ouvert durant un session . Impossible de trouver la solution.
J'appelle par un bouton un menu principal USF1 , mais j'ai d'actif un USF2 et un USF3 , je cherche donc a fermer USF 2 et USF3 lors de l'appel de l'USF1.

Merci de votre aide . Cordialement GDS35

 

[tototiti2008]

Re : Desactiver et masquer tous les usf Actifs

Bonjour gds35,

peut être, dans l'initialisation de USF1 :

Private Sub UserForm_Initialize()
    Unload USF2
    Unload USF3
End Sub

 

[jp14]

Re : Desactiver et masquer tous les usf Actifs

Bonjour gds35
Salut tototiti2008

A tester
En utilisant "End" dans le bouton pour quitter l'usf. Tous les userforms ouvert sont fermés.

Il faut neutraliser les croix pour fermer les usf.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

JP

 

[gds35]

Re : Desactiver et masquer tous les usf Actifs

Merci a vous deux de votre aide , je suis encore loin de pouvoir neutraliser la croix dans mon prg mais ca vient.

Cordialement GDS35