Comment créer des listes déroulantes dépendantes dans un document Word ?
Comme illustré dans la capture d'écran, vous pouvez limiter les choix de la deuxième liste déroulante en fonction de la sélection effectuée dans la première. Cet article explique comment créer des listes déroulantes dépendantes dans un document Word.
Créer des listes déroulantes dépendantes dans Word avec du code VBA
Créer des listes déroulantes dépendantes dans Word avec du code VBA
La méthode VBA ci-dessous vous permet de créer une liste déroulante dépendante, où la seconde liste change en fonction des éléments sélectionnés dans la première. Suivez ces étapes :
- Assurez-vous que l'onglet « Développeur » est visible dans votre ruban Word (sinon, consultez le tutoriel Comment afficher l’onglet Développeur dans Word ?). Insérez ensuite deux listes déroulantes en cliquant deux fois sur « Développeur » > « Formulaires hérités » > « Champ de formulaire déroulant ».
- Faites un clic droit sur la première liste déroulante (ce sera la liste parent) et cliquez sur « Propriétés ».
- Dans la boîte de dialogue « Options du champ de formulaire déroulant » :
- Saisissez les catégories (par exemple, « Fruits », « Légumes », « Viande ») dans la case « Élément déroulant » une par une, en cliquant sur « Ajouter » après chacune.
- Tapez "ddfood" dans la case "Signet".
- Cliquez sur OK".
- Faites un clic droit sur la deuxième liste déroulante, sélectionnez « Propriétés », tapez « ddCategory" dans la case "Signet" et cliquez sur "OK".
- Presse Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
- Dans la fenêtre VBA, cliquez sur « Insertion » > « Module », puis collez le code suivant :
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 SubRemarques :
- Dans le code, modifiez les éléments sous chaque "Case" déclaration adaptée à votre contenu.
- "ddfood" et "ddCategory" doit correspondre aux noms de signets que vous avez saisis dans les boîtes de dialogue « Options du champ de formulaire déroulant ».
- Enregistrez le code et revenez à votre document.
- Faites un clic droit sur la première liste déroulante et sélectionnez « Propriétés ». Dans la boîte de dialogue « Options du champ de formulaire déroulant » qui apparaît, dans la liste déroulante « Quitter », choisissez le nom de la macro.Populateddfood", puis cliquez sur "OK".
- Cliquez sur « Développeur » > « Restreindre la modification ».
- Dans le volet « Restreindre la modification » :
- Cochez « Autoriser uniquement ce type de modification dans le document ».
- Sélectionnez « Remplir des formulaires » dans la liste déroulante.
- Cliquez sur « Oui, commencer à appliquer la protection ».
- Dans la boîte de dialogue « Démarrer l'application de la protection », définissez un mot de passe et cliquez sur « OK ».
La liste déroulante dépendante est désormais active. Lorsque vous sélectionnez « Fruit » dans la première liste, seules les options de fruits apparaîtront dans la seconde.
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Fonctionnalités d'IA de Kutools: Assistant d'IA / Assistant en temps réel / Super Polish (Format de conservation) / Super Translate (Préserver le format) / Rédaction IA / Relecture par IA
(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
✏ Édition du contenu: Recherche et remplacement 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 / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur Effacer grouper...
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Plusieurs images / Découvrez-en davantage dans le insérer grouper...
🔍 Sélections de précision: Localiser Pages spécifiques / Tables / Formes / Titre des paragraphes / Améliorez la navigation avec plus Pour plus d'information Caractéristiques
⭐ Améliorations des étoiles: Accédez à n'importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres de document / 11 Conversion Outils
???? Prend en charge plus de 40 langues:Utilisez Kutools dans votre langue préférée – prend en charge l'anglais, l'espagnol, l'allemand, le français, le chinois et plus de 40 autres !
Meilleurs outils de productivité bureautique
Kutools for Word - 100+ outils pour Word
- 🤖 Fonctionnalités d'IA de Kutools: Assistant d'IA / Assistant en temps réel / Super polonais / Super Traduire / Rédaction IA / Relecture par IA
- (I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Conversion par lots en PDF
- ✏ Édition du contenu: Rechercher et remplacer par lots / Redimensionner toutes les images
- 🧹 Nettoyage sans effort: Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertions créatives: Insérer des milliers de séparateurs / Insérer des cases à cocher / Créer des codes QR
- ???? Prend en charge plus de 40 langues: Kutools parle votre langue – plus de 40 langues prises en charge !