Comment insérer une liste déroulante à code couleur dans un tableau Word ?

Imaginez que vous ayez un tableau dans votre document Word et que vous souhaitiez insérer une liste déroulante colorée dans une colonne. Ainsi, lorsque vous sélectionnez une option dans la liste déroulante, la cellule devient rouge, et lorsque vous en sélectionnez une autre, elle devient verte, comme illustré dans la capture d'écran ci-dessous :

Insérer une liste déroulante à code couleur dans un document Word avec le code VBA

Les étapes suivantes vous guideront dans l’insertion d’une liste déroulante dans une cellule de tableau et dans l’application d’une couleur d’arrière-plan à la cellule en fonction de l’élément sélectionné :

1. Sélectionnez une cellule du tableau dans laquelle vous souhaitez insérer la liste déroulante, puis cliquez sur « Développeur » > « Contrôle de contenu de la liste déroulante ».

   Remarque : Si vous ne voyez pas l'onglet Développeur dans le ruban, visitez : Comment afficher l'onglet Développeur dans le ruban Word.

   

2. Le menu déroulant est inséré dans la cellule concernée. Cliquez ensuite sur « Développeur » > « Propriétés ».



3. Dans la boîte de dialogue « Propriétés du contrôle de contenu », procédez comme suit :
   1. Saisissez le nom du titre dans la zone de texte « Titre ».
   2. Cliquez sur le bouton « Ajouter » pour ouvrir la boîte de dialogue « Ajouter un choix ».
   3. Saisissez l’élément de la liste déroulante dans la zone de texte « Nom d’affichage ».

      

4. Répétez l’étape 3 pour insérer d’autres éléments de liste déroulante si nécessaire.
5. Après avoir créé la première liste déroulante, vous pouvez la copier et la coller dans d’autres cellules.

   

6. maintenez ALT + F11 pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
7. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur « CeDocument » dans le volet « Projet » pour ouvrir le module. Copiez et collez ensuite le code suivant dans le module vide :

   Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
   With ContentControl.Range
       If ContentControl.Title = "Status" Then
           Select Case .Text
               Case "Complete"
                   .Cells(1).Shading.BackgroundPatternColor = wdColorRed
               Case "In Progress"
                   .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
               Case "Not Start"
                   .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
               Case Else
                   .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
           End Select
       End If
   End With
   End Sub
   

   Remarque : Dans le code ci-dessus, "Status" est le nom du titre utilisé lors de la création de la liste déroulante, et "Complete", "In Progress" et "Not Start" sont les éléments. Vous pouvez modifier ces valeurs et les couleurs correspondantes selon vos besoins.

   

8. Enregistrez et fermez la fenêtre de code. Désormais, lorsque vous sélectionnez un élément dans la liste déroulante, la couleur correspondante remplira la cellule.

   

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 !

👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀

Téléchargement gratuit     Acheter maintenant     En savoir plus sur Kutools pour Word

 

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 !

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools