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]

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'

PrivateSub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    SelectCase 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'
        CaseElse
            MsgBox 'Gros Plantage, ou Windows TaskManager, ou coupure EDF lol'
    EndSelect
   
EndSub

Bon Après Midi
@+Thierry

[PascalXLD]

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