Msgbox sans commentaire

Résolu
CLAVERELI Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
 foo -
Bonjour à tous,

J'ai écrit une petite macro permettant de quitter un programme après choix d'une option par l'un des boutons de la MsgBox. Si toutes mes options se comportent bien comme souhaité je déplore l'absence du message prévu.
Voici mon code

"Sub QUITTER()
Msg = "VOULEZ-VOUS EFFACER LES DONNÉES" & Chr(10) & "PRÉSENTES A L'ÉCRAN AVANT DE QUITTER ?"
Select Case MsgBox(Mgs, vbYesNoCancel, "QUITTER")
Case vbYes
Call NOUVELLE_ROUTE
Application.Quit
Case vbNo
Application.Quit
End Select
Application.DisplayAlerts = False
End Sub"

Qu'est-ce qui ne vas pas dans ce code?
En souhaitant à tous UNE BONNE FIN D'ANNÉE ET UN RÉVEILLON DE RÊVE,
Amicalement.

2 réponses

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Select Case MsgBox(Msg, vbYesNoCancel, "QUITTER")

A+
0
foo
 
Bonjour

en claire

Sub QUITTER()
Msg = "VOULEZ-VOUS EFFACER LES DONNÉES" & Chr(10) & "PRÉSENTES A L'ÉCRAN AVANT DE QUITTER ?"
Title = "Démonstration de MsgBox "
Reponse = MsgBox(Msg, vbYesNo, Title)
Select Case Reponse
Case vbYes
MsgBox "Yes"
Case vbNo
MsgBox "No"
End Select
End Sub

A+
Maurice
0