Contenu

# Fonction MsgBox

Affiche une boîte de dialogue contenant un message et renvoie une valeur.

### Syntaxe :

    MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer

### 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.

### Valeur de retour :

Nombre entier

Constante nommée | Valeur entière | Définition
--- | --- | ---
IDOK | 1 | OK
IDCANCEL | 2 | Annuler
IDABORT | 3 | Abandon
IDRETRY | 4 | Réessayer
IDIGNORE | 5 | Ignorer
IDYES | 6 | Oui
IDNO | 7 | Non

### Codes d'erreur :

5 appel de procédure incorrect

## Exemple :

    Sub ExampleMsgBox
    Dim sVar As Integer
     sVar = MsgBox("Las Vegas")
     sVar = MsgBox("Las Vegas",1)
     sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Titre de la boîte de dialogue")
     sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Titre de la boîte de dialogue")
    End Sub