[VBA] Utilisation de QueryClose

Bonsoir,

J'ai un UserForm dans lequel je propose deux choix, si aucun des deux choix n'est sélectionné et que l'on quitte, j'aimerais gérer la fermeture de l'UF par la croix.

Sauf qu'avec "UserForm_QueryClose", les boutons que j'utilise ne fonctionnent plus.

Dans l'exemple, le premier bouton doit engendrer l'écriture du chiffre 1 en cellule(1,1), le deuxième bouton doit écrire 2. Mais comme vous pouvez le voir dans le document joint à ce post, il ne se passe rien.

Savez-vous pourquoi ?

Bonne soirée !

Bonsoir,

Mon problème a été résolu en changeant la valeur :

Cancel = True

en

Cancel = false

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Call chk20_3: Call opt_fin: Exit Sub
Cancel = False
End Sub

Bonne fin de journée !