Userform hide/show

[Hamidexcel]

Bonjour ;

Je veux lorsque la feuil1. Est activée le userform 1 s’affiche
De même pour la feuil3. Avec userfom2
Et lorsque on quitte la feuil. concernée l’userform concerné se cache
Et lorsque on change de classeur les userforms se cachent
Et si je reviens il réapparaissent selon la feuil. Active
Veuillez trouver ficher ci-joint .

 

[JCGL]

Re : Userform hide/show

Bonjour à tous,

Peux-tu essayer :

Dans le module de la Feuil1 :

Private Sub Worksheet_Activate()
UserForm1.Show 0
End Sub


Private Sub Worksheet_Deactivate()
UserForm1.Hide
End Sub

Dans le module de la Feuil3 :

Private Sub Worksheet_Activate()
UserForm2.Show 0
End Sub


Private Sub Worksheet_Deactivate()
UserForm2.Hide
End Sub

Dans le module ThisWorkBook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Hide
UserForm2.Hide
End Sub

A + à tous

 

[King_ghost]

Re : Userform hide/show

voir cette proposition.

 

[Hamidexcel]

Re : Userform hide/show

Bonsoir,

merci pour la réponse ,
ça marche juste je veux à ce que lorsque je change
de classeur les userforms se cachent

 

[King_ghost]

Re : Userform hide/show

voir V1 et V2

 

[Hamidexcel]

Re : Userform hide/show

Bonsoir;

ça marche impeccable
j'ai ajouter dans thisworkbook

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
UserForm1.Hide
UserForm2.Hide
End Sub

merci King_ghost
merci tout le monde

 

[Hamidexcel]

Bouton afficher /masquer plein ecan

Bonsoir,

je veux que lorsque je clic sur masquer

et ensuite clic sur bouton "enregistrer et quitter"
je vois que les autres classeurs qui reste ouverts
ne soit pas en plein ecran

dans thisworkbook j'ai mis
Private Sub Workbook_BeforeClose(Cancel As Boolean)
supprimPleinEcran
End Sub

j'ai mis une macro en genrale
Public Sub supprimPleinEcran()
Application.DisplayScrollBars = False
Application.DisplayFullScreen = True

ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End Sub
et dans thisworbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
supprimPleinEcran
End Sub

voir fichier joint

mais sans rezultat