Bouton [X] d'une feuille

rodo22 - 20 juin 2001 à 17:47
cs_Linkuff Messages postés 24 Date d'inscription vendredi 23 mai 2003 Statut Membre Dernière intervention 12 janvier 2005 - 18 mai 2004 à 16:09
Bonjour,

Comment peut-on affecter une fonction diverse au bouton X de la feuille (en haut à droite). Par exemple : msgbox "Etes-vous sur de vouloir quitter", vbyesno,"Monapplication"

Merci d'avance.

2 réponses

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If MsgBox("Voulez vous quitter?", vbYesNo + vbInformation) = vbNo Then
Cancel = True
Exit Sub
End If

End Sub
0
cs_Linkuff Messages postés 24 Date d'inscription vendredi 23 mai 2003 Statut Membre Dernière intervention 12 janvier 2005
18 mai 2004 à 16:09
ça me parait plus simple de faire :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If(MsgBox("Voulez vous quitter?", vbInformation) = vbOK) Then
end
End If
End Sub
0
Rejoignez-nous