vba MsgBox :
les boîtes de dialogues

Les boîtes de messages, ou boîtes de dialogue, permettent non seulement d'afficher de l'information à l'écran, mais aussi de susciter une réaction chez l'utilisateur du programme.

La procédure en cours est stoppée tant que l'utilisateur n'a pas cliqué sur un des boutons de la boîte.

Syntaxe des MsgBox en vba

Variable = MsgBox("Message" [, Type] [, "Titre de la fenêtre"])

variable : variable de type entier (integer) retournée par le type bouton cliqué.

Message : chaîne de caractères qui sera affichée dans la boîte de dialogue.

Type : constante qui définit les boutons et icônes à afficher.

Titre : chaîne de caractères qui sera affichée dans la barre de titre de la boîte de dialogue.

Constantes des MsgBox en vba



Constantes icône
Type Valeur Icône Utilisation
vbCritical 16 vbCritical Erreur fatale
vbQuestion 32 vbQuestion Question
vbQuestion 48 vbQuestion Information
vbCritical 64 vbCritical Remarque


Constantes boutons
Type Valeur Boutons
vbOKOnly 0
vbOKCancel 1
vbCancelRetryIgnore 2
vbYesNoCancel 3
vbYesNo 4
vbRetryCancel 5


Constantes bouton par défaut
Type Valeur Bouton par défaut
vbDefaultButton 10 premier bouton
256 deuxième bouton
512 troisième bouton


Constantes boutons
Type Valeur Boutons
vbOk 1 OK
vbCancel 2 Annuler
vbAbort 3 Abandonner
vbRetry 4 Réessayer
vbIgnore 5 Ignorer
vbYes 6 Oui
vbNo 7 Non

Exemples de MsgBox en vba

Message simple :


Code VisualBASIC ou VBA ou VBS (Premier MsgBox) (3 lignes) :
  1. Public Sub test()
  2. MsgBox "hello world"
  3. End Sub


  1. <input type="button" value="Tester le script" name="BtnHW" />
  2. <script language="VBScript">
  3. <!--
  4. Sub BtnHW_OnClick
  5. MsgBox "hello world"
  6. End Sub
  7. -->
  8. </script>


Message avec icône de remarque et titre :


Code VisualBASIC ou VBA ou VBS (Exclamation) (3 lignes) :
  1. Public Sub test()
  2. MsgBox "hello world", vbExclamation, "infobrol"
  3. End Sub


  1. <input type="button" value="Tester le script" name="BtnHello" />
  2. <script language="VBScript">
  3. <!--
  4. Sub BtnHello_OnClick
  5. MsgBox "hello world", vbExclamation, "infobrol"
  6. End Sub
  7. -->
  8. </script>


  1. Private Sub Button_Supprime_Click ( )
  2. Dim Sup
  3. Sup = MsgBox("Veuillez confirmer",vbYesNo + 256 + vbCritical, "Confirmation")
  4. If Sup = vbYes Then
  5. MsgBox "Action confirmée"
  6. else
  7. MsgBox "Action annulée"
  8. End If
  9. End Sub


  1. <input type="button" value="Tester le script" name="BtnConfirm" />
  2. <script language="VBScript">
  3. <!--
  4. Sub BtnConfirm_OnClick
  5. Dim Sup
  6. Sup = MsgBox("Veuillez confirmer",vbYesNo + 256 + vbCritical, "Confirmation")
  7. If Sup = vbYes Then
  8. MsgBox "Action confirmée"
  9. else
  10. MsgBox "Action annulée"
  11. End If
  12. End Sub
  13. -->
  14. </script>


Impossible d'exécuter les codes VBScript

Cette page est affichée depuis un navigateur inconnu, avec le système d'exploitation inconnu, les boutons de tests des scripts VBA n'apparaissent pas car soit votre navigateur ne permet pas d'exécuter des scripts vba/vbs, soit ces fonctionnalités sont désactivées pour des raisons de sécurité.

 

Document créé le 09/06/04 03:19, dernière modification le 23/03/18 09:27
Source du document imprimé : https://www.gaudry.be/vba-msgbox.html

L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.