Pb fermeture userform

Question

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&#234;me. Pourquoi? Voil&#224; le code, que j'ai plac&#233;.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim rep As Byte
rep = MsgBox("Etes-vous s&#251;r de vouloir quitter la fen&#234;tre Option ?", _
vbYesNo + vbQuestion, "Quitter la fen&#234;tre Option?")
If rep = vbYes Then
Me.Hide
End
End If
End Sub

NHenry · Answer

met cancel &#224; True


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

jpleroisse · Answer

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

abbassi_omar · Answer

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

Pb fermeture userform

3 réponses

Discussions similaires