Microsoft 365 fermer mon UserForm quand je change de feuille ou quand je ferme mon fichier

Usine à gaz · 16 Mars 2021

Bonjour à toutes à a tous,
Je vous souhaite une bonne journée

Je voudrais coder pour "fermer mon UserForm quand je change de feuille ou quand je ferme mon fichier"

Je ne sais pas faire et je ne trouve pas sur net net.
Auriez-vous les bons codes.
Avec mes remerciements,
Amicalement,
lionel

dysorthographie · 16 Mars 2021

Bonjour,
dans un module standard!

VB:

Public Usf As UserForm1
Public Sub UsfOpen()
Set Usf = New UserForm1
Usf.Show 0
End Sub

Public Sub  UsfClose()
If Not (Usf Is Nothing) Then
    Unload Usf
    Set Usf = Nothing
End If
End Sub

dans ThisWorkbook

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 UsfClose
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 UsfClose
End Sub

Usine à gaz · 16 Mars 2021

Re-Bonjour,
J'ai trouvé :
Private Sub Worksheet_Deactivate()
Unload argumentation
End Sub
lionel,

dysorthographie · 16 Mars 2021

Bonjour,
dans un module standard!

VB:

Public Usf As UserForm1
Public Sub UsfOpen()
Set Usf = New UserForm1
Usf.Show 0
End Sub

Public Sub  UsfClose()
If Not (Usf Is Nothing) Then
    Unload Usf
    Set Usf = Nothing
End If
End Sub

dans ThisWorkbook

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 UsfClose
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 UsfClose
End Sub

Usine à gaz · 16 Mars 2021

Bonjour dysorthographie,
Merci pour tes codes,
C'est Nickel
lionel,

Microsoft 365 fermer mon UserForm quand je change de feuille ou quand je ferme mon fichier

Usine à gaz

XLDnaute Barbatruc

dysorthographie

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Discussions similaires