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

Aidez-nous !