VbNo => poursuivre là ou on s'est arrêté

[TgR]

Bonjour,

Je suis en train de me demander comment réaliser ceci :

J'ai une inputbox dans laquelle se trouve un certain nombre de ComboBox. Cette inputbox possède un bouton "quitter". J'ai inséré ceci sur ce bouton

Select Case MsgBox("Voulez vous vraiment quitter ?", vbYesNo + vbQuestion, "Quitter l'application")
Case vbYes
ThisWorkbook.Close Savechanges:=True
Case vbNo

End Select

Je ne sais pas comment configurer le vbNo de manière à ce que lorsque l'on clique dessus, l'utilisateur reprenne là où il en était. Actuellement s'il clique sur "non", l'inputbox se ferme...

Merci pour votre aide !

TgR

 

[pierrejean]

Re : VbNo => poursuivre là ou on s'est arrêté

Bonjour TgR

L'inputbox se fermera toujours apres reponse !!

teste ceci

reponse = MsgBox("Voulez vous vraiment quitter ?", vbYesNo + vbQuestion, "Quitter l'application")
If reponse = vbYes Then ThisWorkbook.Close Savechanges:=True
MsgBox ("suite")