Exemples de la fonction MsgBox


Vous trouverez dans cette rubrique des exemples de la fonction MsgBox. La fonction MsgBox permet d'afficher une boîte de dialogue présentant un message et des boutons de commande, afin d'afficher une information à l'attention de l'utilisateur. ou d'obtenir une réponse à une question qui orientera l'exécution du programme.

Message d'information via une MsgBox.
Message d'information via une MsgBox avec choix de l'action à effectuer (2 boutons).
Message d'information via une MsgBox avec choix de l'action à effectuer (3 boutons).


 
Message d'information via une MsgBox.Retour au début du document

        Cette boîte de dialogue affiche un message, attend que l'utilisateur
        clique sur le bouton pour valider la lecture de ce message.

        La boîte de dialogue

        Le code

        Code lançant l'ouveture de la boîte de dialogue MsgBox

 
Sub MessageInformation()
' Affiche un message d'information
        Msg = "Votre fichier a été sauvegardé."
        Title = "Démonstration de MsgBox - E. Renaud 10/2000"
        Style = vbOKOnly + vbInformation
        Reponse = MsgBox(Msg, Style, Title)
End Sub

Message d'information via une MsgBox avec choixRetour au début du document
      de l'action à effectuer.

        Cette boîte de dialogue affiche un message, attend que l'utilisateur
        clique sur un bouton, puis renvoie une valeur de type Integer qui
        indique le bouton choisi par l'utilisateur.

        La boîte de dialogue

        Le code

        Code lançant l'ouveture de la boîte de dialogue MsgBox

 
Sub RecupInfoMessage()
Dim Msg, Style, Title, Response
' Définit le message.
Msg = "Souhaitez-vous continuer?"
' Définit les boutons.
Style = vbYesNo + vbQuestion
' Définit le titre.
Title = "Démonstration de MsgBox - E. Renaud 1/2000"
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
        MyString = "Oui" ' Effectue une action.
Else ' L'utilisateur a choisi Non.
        MyString = "Non" ' Effectue une action.
End If
End Sub

Message d'information via une MsgBox avec choixRetour au début du document
      de l'action à effectuer.

        Cette boîte de dialogue affiche un message, attend que l'utilisateur
        clique sur un bouton, puis renvoie une valeur de type Integer qui
        indique le bouton choisi par l'utilisateur.

        La boîte de dialogue

        Le code

        Code lançant l'ouveture de la boîte de dialogue MsgBox

 
Sub MessageAvecReponseOuAnnulation()
' Affiche un message d'information avec test sur le bouton sélectionné
      Msg = "Démonstration avec 3 boutons."
      Title = "Exemple de boîte de message"
      Style = vbYesNoCancel + vbQuestion
      Reponse = MsgBox(Msg, Style, Title)
' Si le bouton Annuler a été choisi ... on quitte la procédure
      If Reponse = vbCancel Then Exit Sub
' sinon on teste lequel du bouton Oui ou Non a été choisi
      If Reponse = vbYes Then
            MsgBox "Vous avez sélectionné Oui"
        Else
            MsgBox "Vous avez sélectionné Annuler"
      End If
End Sub

Pour plus d'informations, consultez l'aide sur MsgBox.

Retour au début de document

Retour au début du document