VBA EXCEL La MsgBox décortiquée

3 combinaisons possibles :

• Boutons Ok + Annuler (constante : vbOkCancel)
• Boutons Oui + Non (constante : vbYesNo)
• Boutons Réessayer + Annuler (constante : vbRetryCancel)

Exemples d'utilisation :

Sub mess_03a()
'Msgbox Ok + Annuler
Select Case MsgBox("Votre message ici", vbOKCancel, "Titre de la MsgBox")
    Case vbOK
        'procédure si click sur Ok
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Sub mess_03b()
'MsgBox Oui + Non
Select Case MsgBox("Votre message ici", vbYesNo, "Titre de la MsgBox")
    Case vbYes
        'procédure si click sur Oui
    Case vbNo
        'procédure si click sur Non
End Select
End Sub

Sub mess_03c()
'MsgBox Réessayer + Annuler
Select Case MsgBox("Votre message ici", vbRetryCancel, "Titre de la MsgBox")
    Case vbRetry
        'procédure si click sur Réessayer
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Aperçus :

2 combinaisons possibles :

• Boutons Oui + Non + Annuler (constante : vbYesNoCancel)
• Boutons Abandonner + Réessayer + Ignorer (constante : vbAbortRetryIgnore)

Exemples d'utilisation :

Sub mess_04a()
'MsgBox Oui + Non + Abandonner
Select Case MsgBox("Votre message ici", vbYesNoCancel, "Titre de la MsgBox")
    Case vbYes
        'procédure si click sur Oui
    Case vbNo
        'procédure si click sur Non
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

Sub mess_04b()
'MsgBox Abandonner + Réessayer + Ignorer
Select Case MsgBox("Votre message ici", vbAbortRetryIgnore, "Titre de la MsgBox")
    Case vbAbort
        'procédure si click sur Abandonner
    Case vbRetry
        'procédure si click sur Réessayer
    Case vbIgnore
        'procédure si click sur Ignorer
End Select
End Sub

Aperçus :

Via ce bouton Aide, vous pouvez afficher un fichier de type *.hlp qui permettrait par exemple d'expliquer à l'utilisateur les différentes étapes de votre procédure.
Pour de plus amples explications quant à la création d'un fichier d'aide, jetez un oeil ICI.

La constante de ce bouton est : vbMsgBoxHelpButton
Cette constante fait appel à 2 paramètres supplémentaires :

• [HelpFile] = le chemin complet et le nom du fichier *.hlp
• [Context] = permet d'ouvrir le fichier d'aide à un chapitre prédéfini (ce paramètre est facultatif)

La syntaxe est la suivante : MsgBox("Votre message", combinaison de boutons + icône + vbMsgBoxHelpButton, "Titre de la MsgBox", HelpFile, Context)

Exemple d'utilisation :

Sub mess_06()
'MsgBox Ok + Help
Dim Fichier_Aide As String
Fichier_Aide = "C:\WINDOWS\Help\calc.hlp"
Select Case MsgBox("Votre message ici", vbInformation + vbMsgBoxHelpButton, "Titre de la MsgBox", Fichier_Aide, 1)
    Case vbOK
        'procédure si click sur Ok
End Select
End Sub

Aperçu :

Sans préciser ce paramètre, par défaut c'est le premier bouton de votre MsgBox qui recevra le focus.
Pour les MsgBox comportant plusieurs boutons (max.4 : combinaison de 3 boutons + bouton Aide), il peut être intéressant de définir à l'avance le bouton qui recevra le focus,
ce qui permet par exemple de définir l'action si l'utilisateur appuie sur la touche "Enter" sans avoir sélectionné un bouton.

Les constantes sont : vbDefaultButton1 ou vbDefaultButton2 ou vbDefaultButton3 ou vbDefaultButton4.

Exemple de syntaxe : MsgBox("Message", vbYesNoCancel + vbQuestion + vbMsgBoxHelpButton + vbDefaultButton3, "Titre", HelpFile, Context)
Dans cet exemple, c'est le bouton Annuler qui recevra le focus.

Si vous souhaitez afficher le texte de votre MsgBox avec un alignement à droite, la constante à ajouter est vbMsgBoxRight.

Exemple de syntaxe : MsgBox("Message", vbYesNoCancel + vbQuestion + vbMsgBoxRight, "Titre")

Aperçu :

Par défaut, lorsque la MsgBox s'affiche, uniquement l'application active (dans notre cas Excel) se met en pause tant que l'utilisateur n'aura pas précisé son choix.
Par défaut, la constante est vbApplicationModal, mais il n'est pas besoin de la spécifier

Vous pouvez également mettre en pause tout le système en ajoutant la constante vbSystemModal

Ce dernier paramètre permet de spécifier que le texte doit s'afficher de droite à gauche pour les systèmes en langues arabes.

La constante est : vbMsgBoxRtlReading
Je n'ai pas encore eu l'occasion de tester ce paramètre afin d'en vérifier le fonctionnement.