Bonsoir
Voilà ce que dit l'aide en ligne de VBA.
Affiche un message dans une boîte de dialogue, attend que l'utilisateur clique sur un bouton, puis renvoie une valeur de type Integer indiquant sur quel bouton l'utilisateur a cliqué.
Syntaxe
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
La syntaxe de la fonction MsgBox comprend les arguments nommés suivants :
Élément Description
prompt Obligatoire. Expression de chaîne affichée comme message dans la boîte de dialogue. La longueur maximale de l'argument prompt est d'environ 1 024 caractères selon la largeur des caractères utilisés. Si prompt occupe plus d'une ligne, n'oubliez pas d'insérer un retour chariot (Chr(13)) ou un saut de ligne (Chr(13)) entre les lignes, ou encore une combinaison de caractères retour de ligne(Chr(13) & Chr(13)) entre chaque ligne.
buttons Facultatif. Expression numérique correspondant à la somme des valeurs spécifiant le nombre et le type de boutons à afficher, le style d'icône à utiliser, l'identité du bouton par défaut ainsi que la modalité de la zone de message. Si omis, buttons se voit affecter la valeur par défaut 0.
title Facultatif. Expression de chaîne affichée dans la barre de titre de la boîte de dialogue. Si l'argument title est omis, le nom de l'application est placé dans la barre de titre.
helpfile Facultatif. Expression de chaîne indiquant le fichier d'aide à utiliser pour fournir une aide contextuelle sur la boîte de dialogue. Si l'argument helpfile est défini, l'argument context doit l'être également. Cet argument n'est pas pris en charge sous Macintosh.
context Facultatif. Expression numérique indiquant le numéro de contexte attribué par l'auteur de l'aide à la rubrique appropriée. Si l'argument context est défini, l'argument helpfile doit l'être également. Cet argument n'est pas pris en charge sous Macintosh.
Cet exemple montre comment utiliser la fonction MsgBox pour afficher un message d'erreur grave dans une boîte de dialogue pourvue des boutons Yes et No. Le bouton No est spécifié comme réponse par défaut. La valeur retournée par la fonction MsgBox dépend du bouton sélectionné par l'utilisateur.
Dim Msg, Style, Title, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
Comme tu le vois, l'aide en ligne permet de résoudre quelque problème. Je te conseille de l'installer sur ta machine.
@+Jean-Marie
