Msgbox sans commentaire Résolu

Question

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.

Gyrus · Answer

Bonjour,

    Select Case MsgBox(Msg, vbYesNoCancel, "QUITTER")

A+

foo · Answer

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

Msgbox sans commentaire

2 réponses

Votre réponse

Discussions similaires

Newsletters