MsgBox

[gregcamelot]

Bonjour !
J'ai créé un bouton sur excel, avec une macro qui permet de fermer le classeur sans enregistrer en cliquant sur celui-ci.

Sub Fermer()
ThisWorkbook.Close SaveChanges:=False
End Sub

Par contre j'aimerais rajouter un msgbox du type "Etes vous sûr de vouloir quitter?" > "oui" "non", que le classeur se ferme en cliquant sur oui et l'inverse en cliquant sur non.
Merci d'avance

 

[Pierrot93]

Re : MsgBox

Bonjour Greg

peut être ainsi :

If MsgBox("Etes vous sûr de vouloir quitter ?", vbYesNo) = vbYes Then _
    ThisWorkbook.Close SaveChanges:=False

bonne fin d'après midi
@+

 

[elisa27]

Re : MsgBox

rep1 = MsgBox("Etes vous sur de vouloir quitter?", vbYesNo + vbQuestion, "")

if rep1=vbNo then
'action1
else
'action2
end if

 

[gregcamelot]

Re : MsgBox

Merci d'avoir répondu si vite !
C'est parfait !