Comment savoir qu'un USF est fermé

[xavier44]

Bonjour le Forum,
Comment récupérer une info lorsq'un USF est fermé avec la croix en haut à droite afin de pouvoir lancer un action.

Merci pour votre aide.

 

[PascalXLD]

Bonjour

Du style

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then  

.....


End if


End Sub

Bon courage

 

[xavier44]

Re bonjour à tous
Merci Pascal76 pour la réponse. c'est parfait.

 

[_Thierry]

Re: UserForm CloseMode (Capter la Fermeture)

Bonjour Pascal, Xavier

Alors fini les vacances Pascal ? Welcome Back sur XLD !

Bon en complément, car assez mal documenté sans l'aide, voici un pense bête de 'QueryClose' => 'CloseMode'

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Select Case CloseMode
        Case 0 'Ou Constante vbFormControlMenu
            MsgBox 'Fermeture pas la Croix ou ''ALT F4'''
        Case 1 'Ou Constante vbFormCode
            MsgBox 'Fermeture programmation ''CommndButton'' ou autre'
        Case Else
            MsgBox 'Gros Plantage, ou Windows TaskManager, ou coupure EDF lol'
    End Select
   
End Sub

Bon Après Midi
@+Thierry

 

[PascalXLD]

Re: UserForm CloseMode (Capter la Fermeture)

Re

Et oui les vacances sont finies. J'ai pris un bon bol d'air iodé alors c'est reparti pour un tour

Et bien sinon merci pour le complément d'information.

Bonne soirée