L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

MsgBox

4 mars 2014
Imprimer E-mail

Cette fonction affiche une boîte de dialogue avec 1 ou plusieurs boutons, attend un clic sur un bouton, puis renvoie une valeur de type Integer indiquant quel bouton a été cliqué.
MsgBox permet de préciser le texte à afficher, le type de boutons et l'icône à afficher, le titre de la boîte de dialogue et éventuellement l'aide à afficher (il faut au préalable concevoir un fichier d'aide).
Si le bouton cliqué n'a aucune importance, dans le cas où vous ne désirez que afficher un message à l'utilisateur, utilisez MsgBox ainsi :
      MsgBox "Texte à afficher"
Ou : 
      MsgBox "Texte à afficher",vbOKOnly,"Titre de la fenêtre"

Par contre, pour demander un choix en retour, utilisez-la ainsi :
Sub Message()
     Dim Retour As Integer

     Retour = MsgBox("Question à poser", vbYesNo + vbCritical + vbDefaultButton2, "Titre de la boîte")
     If Retour = vbYes Then
           Range("A1") = "Réponse OUI"
     Else
           Range("A1") = "Réponse NON"
     End If
End Sub

Le 2ème paramètre de la fonction concerne les boutons et l'icône à afficher, c'est une donnée numérique qui est la somme des valeurs représentants le type des boutons, le style de l'icône, le bouton par défaut. Le tableau suivant décrit ces différentes valeurs, vous ne pouvez additionner qu'une seule valeur dans chaque groupe :

GroupeConstanteValueAffiche 
Type des boutons vbOKOnly 0 le bouton OK uniquement.
vbOKCancel 1 les boutons OK et Annuler.
vbAbortRetryIgnore 2 le bouton Abandonner, Réessayer et Ignorer.
vbYesNoCancel 3 les boutons Oui, Non et Annuler.
vbYesNo 4 les boutons Oui et Non.
vbRetryCancel 5 les boutons Réessayer et Annuler.
Style de l'icône  vbCritical 16 l'icône Message critique.
vbQuestion 32 l'icône Requête d'avertissement.
vbExclamation 48 l'icône Message d'avertissement.
vbInformation 64 l'icône Message d'information.
Bouton par défaut vbDefaultButton1 0 Le premier bouton
vbDefaultButton2 256 Le deuxième bouton
vbDefaultButton3 512 Le troisième bouton
vbDefaultButton4 768 Le quatrième bouton
Modalité de la boîte de dialogue vbApplicationModal 0 L'utilisateur doit répondre au message affiché avant de pouvoir continuer de travailler dans l'application en cours (par défaut).
vbSystemModal 4096 Comme ci-dessus, mais la boîte de dialogue est visible et au 1er plan quelque soit l'application active.
La fonction renvoie ces valeurs, selon le bouton cliqué :
BoutonConstanteValeur
OK vbOK 1
Annuler vbCancel 2
Abandonner vbAbort 3
Réessayer vbRetry 4
Ignorer vbIgnore 5
Oui vbYes 6
Non vbNo 7