Pb fermeture userform

A la fermeture de mon userform j'aimerais afficher un msgbox permettant de valider la fermeture(oui ou no). Or, si je clique non, mon userform se ferme quand même. Pourquoi? Voilà le code, que j'ai placé.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim rep As Byte
rep = MsgBox("Etes-vous sûr de vouloir quitter la fenêtre Option ?", _
vbYesNo + vbQuestion, "Quitter la fenêtre Option?")
If rep = vbYes Then
Me.Hide
End
End If
End Sub

met cancel à True


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

NH

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim rep As Byte
rep = MsgBox("Etes-vous sûr de vouloir quitter la fenêtre Option ?", _
vbYesNo + vbQuestion, "Quitter la fenêtre Option?")
If rep = vbYes Then
Cancel = false
Else
Cancel = true
End If
End Sub

jpleroisse

salut
peut etre vous avez oubliez  "elseif"
vous pouvez ecrire ce code
rep = MsgBox("Etes-vous sûr de vouloir quitter la fenêtre Option ?", _
vbYesNo + vbQuestion, "Quitter la fenêtre Option?")
If rep = vbno  Then
exit sub
elseif  rep = vbyes then
Me.Hide 'ou bien "unload me
End
End If
End Sub