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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
38
Affichages
892
Réponses
6
Affichages
209
Retour