Msgbox sans commentaire
Résolu
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.
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
-
Bonjour,
Select Case MsgBox(Msg, vbYesNoCancel, "QUITTER")
A+ -
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
