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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :)
 
Solution
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

dysorthographie

XLDnaute Accro
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
 

Discussions similaires

Réponses
8
Affichages
268

Statistiques des forums

Discussions
312 492
Messages
2 088 936
Membres
103 987
dernier inscrit
Doctami