Comment insérer une liste déroulante codée par couleur dans un tableau Word ?
Supposons que vous ayez un tableau dans votre document Word, et maintenant vous souhaitez insérer une liste déroulante codée par couleur dans une colonne du tableau. Cela signifie que lorsque vous sélectionnez une option dans la liste déroulante, la couleur de la cellule devient rouge, et lorsque vous en sélectionnez une autre, la couleur de la cellule devient verte, comme le montre la capture d'écran ci-dessous :

Insérer une liste déroulante codée par couleur dans un document Word avec un code VBA
Les étapes suivantes vous guideront pour insérer une liste déroulante dans une cellule de tableau et appliquer une couleur d'arrière-plan à la cellule en fonction de l'élément sélectionné :
- Sélectionnez une cellule du tableau où vous souhaitez insérer la liste déroulante, puis cliquez sur "Développeur" > "Contrôle de contenu Liste déroulante".
Remarque : Si vous ne voyez pas l'onglet Développeur dans le ruban, consultez : Comment afficher l'onglet Développeur dans le ruban Word.
- La liste déroulante est insérée dans la cellule spécifique. Ensuite, cliquez sur "Développeur" > "Propriétés".
- Dans la boîte de dialogue "Propriétés du contrôle de contenu", effectuez les actions suivantes :
- Entrez le nom du titre dans la zone de texte "Titre".
- Cliquez sur le bouton "Ajouter" pour ouvrir la boîte de dialogue "Ajouter un choix".
- Tapez l'élément de la liste déroulante dans la zone de texte "Nom d'affichage".
- Répétez l'étape 3 pour insérer d'autres éléments de la liste déroulante au besoin.
- Après avoir créé la première liste déroulante, vous pouvez la copier et la coller dans d'autres cellules.
- Maintenez ALT + F11 pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".
- Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur "ThisDocument" dans le volet "Projet" pour ouvrir le module. Ensuite, copiez et collez 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, "Statut" est le nom du titre utilisé lors de la création de la liste déroulante, et "Terminé", "En cours" et "Non commencé" sont les éléments. Vous pouvez modifier ces valeurs ainsi que les couleurs correspondantes selon vos besoins.
- Enregistrez et fermez la fenêtre de code. Maintenant, lorsque vous sélectionnez un élément dans la liste déroulante, la couleur correspondante remplira la cellule.

Meilleurs outils de productivité pour Office
Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...
➕ Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...
🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...
⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Meilleurs outils de productivité pour Office
Kutools pour Word - 100+ outils pour Word
- 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
- 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR