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
241

Statistiques des forums

Discussions
312 330
Messages
2 087 337
Membres
103 524
dernier inscrit
Smile1813