Comment créer des listes déroulantes dépendantes dans un document Word?
Comme le montre la capture d'écran de gauche, vous devez limiter les choix dans la deuxième liste déroulante en fonction de l'option de la première liste déroulante, comment pouvez-vous faire ? Cet article vous montrera une méthode pour créer des listes déroulantes dépendantes dans un document Word.
Créer des listes déroulantes dépendantes dans Word avec le code VBA
Créer des listes déroulantes dépendantes dans Word avec le code VBA
Le code VBA ci-dessous peut vous aider à créer une liste déroulante dépendante dans un document Word. Veuillez suivre les instructions étape par étape.
1. Tout d'abord, vous devez insérer deux listes déroulantes dans votre document Word. Cliquez sur Développeur > Formulaires hérités > Champ de formulaire déroulant. Voir la capture d'écran:
2. Cliquez avec le bouton droit sur la première liste déroulante (cette liste déroulante doit être celle parente), puis cliquez sur Propriétés. Voir capture d'écran:
3. Dans l'ouverture Options de champ de formulaire déroulant boîte de dialogue, vous devez:
3.1 Entrez la catégorie dans le Élément déroulant boîte, puis cliquez sur le Ajouter , répétez l'opération jusqu'à ce que toutes les catégories soient ajoutées à la zone de liste déroulante Éléments dans.
3.2 Entrer ddnourriture into the Favoris boîte.
3.3 Cliquez sur le OK bouton. Voir la capture d'écran:
4. Cliquez avec le bouton droit de la souris sur la deuxième liste déroulante, cliquez sur biens ouvrir son Options de champ de formulaire déroulant boîte de dialogue et dans la boîte de dialogue, entrez ddCatégorie into the Favoris boîte et cliquez sur le OK bouton. Voir la capture d'écran:
5. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
6. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez ci-dessous le code VBA dans la fenêtre Module.
Code VBA: créer une liste déroulante dépendante dans Word
Sub Populateddfood()
'Update by Extendoffice 2018/10/25
Dim xDirection As FormField
Dim xState As FormField
On Error Resume Next
Set xDirection = ActiveDocument.FormFields("ddfood")
Set xState = ActiveDocument.FormFields("ddCategory")
If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
With xState.DropDown.ListEntries
.Clear
Select Case xDirection.Result
Case "Fruit"
.Add "Apple"
.Add "Banana"
.Add "Peach"
.Add "Lychee"
.Add "Watermelon"
Case "Vegetable"
.Add "Cabbage"
.Add "Onion"
Case "Meat"
.Add "Pork"
.Add "Beef"
.Add "Mutton"
End Select
End With
End Sub
Notes:
1. Dans le code, veuillez modifier les éléments sous chaque cas selon vos besoins.
2. ddnourriture et ddCatégorie doit correspondre aux options de signet que vous avez entrées dans les deux ci-dessus Options de champ de formulaire déroulant Boîtes de dialogue.
7. Enregistrez le code et revenez au document.
8. Cliquez avec le bouton droit de la souris sur la première liste déroulante et cliquez sur biens ouvrir le Options de champ de formulaire déroulant boite de dialogue. Dans la boîte de dialogue, veuillez sélectionner le nom de la macro ci-dessus (ici Popolateddfood) dans le Sortie liste déroulante, puis cliquez sur le OK .
9. Cliquez maintenant sur Développeur > Restreindre l'édition comme ci-dessous la capture d'écran montrée.
10. dans le Restreindre l'édition volet, vous devez:
10.1) Vérifiez le Autoriser uniquement ce type de modification dans le document boîte;
10.2) Sélectionnez Remplir des formulaires option dans la liste déroulante;
10.3) Cliquez sur le Oui, commencez à appliquer la protection bouton;
10.4) Dans le Commencer à appliquer la protection boîte de dialogue, entrez le mot de passe et cliquez sur le OK bouton. Voir la capture d'écran:
Maintenant, une liste déroulante dépendante est créée. Lorsque vous sélectionnez Fruit dans la première liste déroulante, seules les catégories de fruits peuvent être sélectionnées dans la seconde.
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion