Contenu
Index 🔎︎

# Instruction MsgBox

Affiche une boîte de dialogue contenant un message.

### Syntaxe :

       MsgBox prompt As String [,buttons = MB_OK [,title As String]]
       response = MsgBox( prompt As String [,buttons = MB_OK [,title As String]])

### Paramètres :

prompt: expression de chaîne affichée comme un message dans la boîte de dialogue. Les sauts de lignes peuvent être insérés avec Chr$(13).

title: expression de chaîne affichée dans la barre de titre d'une boîte de dialogue. Si omise, la barre de titre affiche le nom de l'application correspondante.

buttons : expression au format nombre entier spécifiant le type de la boîte de dialogue, le nombre et le type de boutons à afficher, ainsi que le type d'icône. buttons représente une combinaison de motifs binaires, c'est-à-dire une combinaison d'éléments déterminée par l'ajout de leurs valeurs respectives :

Constante nommée | Valeur entière | Définition
MB_OK | 0 | Afficher uniquement le bouton OK.
MB_OKCANCEL | 1 | Afficher les boutons OK et Annuler.
MB_ABORTRETRYIGNORE | 2 | Afficher les boutons Abandonner, Réessayer et Ignorer.
MB_YESNOCANCEL | 3 | Afficher les boutons Oui, Non et Annuler.
MB_YESNO | 4 | Afficher les boutons Oui et Non.
MB_RETRYCANCEL | 5 | Afficher les boutons Réessayer et Annuler.
MB_ICONSTOP | 16 | Ajouter l'icône Message critique à la boîte de dialogue.
MB_ICONQUESTION | 32 | Ajouter l'icône Requête d'avertissement à la boîte de dialogue.
MB_ICONEXCLAMATION | 48 | Ajouter l'icône Message d'avertissement à la boîte de dialogue.
MB_ICONINFORMATION | 64 | Ajouter l'icône Message d'information à la boîte de dialogue.
| 128 | Désigner le premier bouton de la boîte de dialogue comme bouton par défaut.
MB_DEFBUTTON2 | 256 | Désigner le deuxième bouton de la boîte de dialogue comme bouton par défaut.
MB_DEFBUTTON3 | 512 | Désigner le troisième bouton de la boîte de dialogue comme bouton par défaut.

### Codes d'erreur :

5 appel de procédure incorrect

### Exemple :

    Sub ExampleMsgBox
     Const sText1 = "Une erreur inattendue s'est produite."
     Const sText2 = "Néanmoins, l'exécution du programme va se poursuivre."
     Const sText3 = "Erreur"
     MsgBox(sText1 + Chr(13) + sText2,16,sText3)
     MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
    End Sub