Comment créer des boîtes de saisie et de message dans un document Word avec VBA ?

Dernière mise à jour : juillet 2020 ; Applicabilité : Office 365,2019, 2016, 2013.

Parfois, nous aimerions rendre nos documents Word plus interactifs et même capturer certaines entrées de l'utilisateur. Saisissez le message et les zones de saisie .

Comme son nom l'indique, une boîte de message est une information qui s'affiche pour les utilisateurs du document. Les zones de saisie sont essentielles pour capturer les informations de l'utilisateur.

Cet article contient toutes les informations et les exemples de code dont vous aurez besoin pour créer des documents entièrement fonctionnels avec un message Visual Basic pour Applications (VBA) et des zones de saisie pour Microsoft Word.

Comment ajouter du code VBA dans Word ?

Avant de continuer et d'expliquer comment ajouter des zones de message et de saisie, voici un rappel rapide sur la façon d'ajouter votre code VBA personnalisé à un document Word.

• Tout d'abord, allez-y et activez l' onglet Développeur .
• Maintenant, appuyez sur le  bouton  Visual Basic dans l' onglet Développeur  . Cela ouvrira l'éditeur Visual Basic.

• Mettez votre document en surbrillance.
• Cliquez sur  Insérer  , puis sélectionnez  Module .

• Copiez le code que nous fournissons ci-dessous dans le module que vous venez de créer dans votre module.
• Cliquez sur Enregistrer. Donnez un nom à votre document si vous y êtes invité.
• Fermez l'éditeur Visual Basic.

Boîtes de message Code VBA

Syntaxe:

MsgBox (invite, boutons, titre, fichier d'aide, contexte)

Explication de la syntaxe :

Rapide:

Obligatoire. Ce sont les informations qui peuvent être données à l'utilisateur. Il doit être inséré entre les  guillemets doubles .

Boutons:

Optionnel. Les boutons sont ce genre de boutons qui sont donnés aux informations des utilisateurs. Il existe différents boutons disponibles pour MsgBox() et ils peuvent être trouvés sur les images ci-dessous.

Titre:

Optionnel. C'est le titre de l'information donnée à l'utilisateur. S'il n'est pas fourni,  Microsoft Word  sera le titre par défaut.

Fichier d'aide et contexte :

• Optionnel. Le fichier d'aide identifiera le fichier d'aide disponible sur le disque local qui peut être fourni comme aide dans une boîte de dialogue
• Optionnel. Le contexte est une expression numérique utilisée pour identifier la rubrique d'aide par son numéro unique.

Exemple de code de boîte de message

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

Sortir:

Boîtes de dialogue et de saisie Code VBA

La boîte de saisie est une boîte de dialogue simple qui nous permet d'inviter l'utilisateur à fournir certaines informations. Faisons connaissance avec le code VBA à l'aide d'un exemple.

Syntaxe:

InputBox (Invite, Titre, Par défaut, XPos, YPos, HelpFile, HelpContextId, Type)

Explication de la syntaxe :

Rapide:

Obligatoire. Ce sont les informations qui peuvent être données à l'utilisateur. Il doit être inséré entre les  guillemets doubles .

Titre:

Optionnel. C'est le titre de l'information donnée à l'utilisateur. S'il n'est pas fourni,  Microsoft Word  sera le titre par défaut.

Défaut:

Optionnel. Il affiche la valeur par défaut dans la zone de texte, avant que l'utilisateur ne tape une valeur. S'il n'est pas spécifié, la zone de texte sera vide.

XPos :

Optionnel. Il est utilisé comme position sur l'axe X. De gauche à droite

YPos :

Optionnel. Il est utilisé comme position sur l'axe Y. Du haut jusqu'en bas

ID de fichier d'aide et de contexte d'aide :

• Optionnel. Le fichier d'aide identifiera le fichier d'aide disponible sur le disque local qui peut être fourni comme aide dans une boîte de dialogue
• Optionnel. HelpContext ID est le numéro d'identification du fichier d'aide.

Code de la zone de saisie :

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

Sortir: