Comment créer une liste dynamique dans un document Word ?

Comme le montre la capture d’écran, vous souhaitez probablement que les options de la deuxième liste déroulante s’ajustent automatiquement en fonction du choix effectué dans la première. Cet article vous explique comment créer une liste dynamique dans un document Word.

Créer Liste dynamique dans Word à l’aide d’un code VBA

Créer Liste dynamique dans Word à l’aide d’un code VBA

La méthode VBA ci-dessous vous permet de créer une liste dynamique dont le contenu de la deuxième liste s’adapte automatiquement à la sélection effectuée dans la première. Suivez ces étapes :

1. Assurez-vous que l’onglet « Développeur » est bien visible dans le ruban Word (sinon, consultez le tutoriel)Comment afficher l’onglet Développeur dans Word ?). Ensuite, insérez deux listes déroulantes en cliquant successivement sur « Développeur » > « Formulaires hérités » > « Champ de formulaire liste déroulante ».

   

2. Cliquez avec le bouton droit sur la première liste déroulante (qui servira de liste parente), puis sélectionnez « Propriétés ».

   

3. Dans la boîte de dialogue «Options du champ de formulaire liste déroulante» :
   1. Saisissez les catégories (par exemple : « Fruit », « Légume », « Viande ») une par une dans la zone « Élément de la liste déroulante », puis cliquez sur « Ajouter » après chaque saisie.
   2. Saisissez «ddfood» dans le champ «Signet».
   3. Cliquez sur « OK ».

      

4. Cliquez avec le bouton droit sur la deuxième Liste déroulante, sélectionnez «Propriétés», tapez «ddCategory» dans la zone «Signet», puis cliquez sur «OK».

   

5. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
6. 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 Sub

   Remarques :

   • Dans le code, modifiez les éléments situés sous chaque instruction «Case» pour qu’ils correspondent à votre contenu.
   • «ddfood» et «ddCategory» doivent correspondre exactement au nom du signet que vous avez saisi dans la boîte de dialogue « Options du champ de formulaire liste déroulante ».
7. Enregistrez le code et retournez à votre document.
8. Cliquez de nouveau avec le bouton 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 liste déroulante » qui s’affiche, choisissez le nom de la macro «Populateddfood» dans la liste déroulante « Sortie », puis cliquez sur « OK ».

   

9. Cliquez sur « Développeur » > « Restreindre la modification ».

   

10. Dans le volet «Restreindre la modification» :
    1. Cochez la case « Autoriser uniquement ce type de modification dans le document ».
    2. Sélectionnez « Remplissage de formulaires » dans la liste déroulante.
    3. Cliquez sur « Oui, appliquer la protection ».
    4. Dans la boîte de dialogue « Appliquer la protection », définissez un mot de passe, puis cliquez sur « OK ».

       

La liste dynamique est désormais active. Lorsque vous sélectionnez « Fruit » dans la première liste, seules les options correspondant aux fruits s’affichent dans la deuxième liste.

Meilleurs outils de productivité Office

Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

 

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

• Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

✨ Kutools for Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

⬇️ Télécharger maintenant🎁 Acheter la suite complète📖 En savoir plus

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

• 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
• 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
• ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
• 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
• ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
• 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools