Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment insérer une liste déroulante codée par couleur dans un tableau Word ?

Author: Xiaoyang Last Modified: 2025-08-26

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 :

Demo showing a cell's color changing when an item is selected from the drop-down list

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é :

  1. 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.

    Drop-Down List Content Control button on the ribbon
  2. La liste déroulante est insérée dans la cellule spécifique. Ensuite, cliquez sur "Développeur" > "Propriétés".
    3. Drop-down inserted into a specific cell with Properties option highlighted
  3. Dans la boîte de dialogue "Propriétés du contrôle de contenu", effectuez les actions suivantes :
    1. Entrez 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. Tapez l'élément de la liste déroulante dans la zone de texte "Nom d'affichage".
      Content Control Properties dialog box and Add Choice dialog box
  4. Répétez l'étape 3 pour insérer d'autres éléments de la liste déroulante au besoin.
  5. Après avoir créé la première liste déroulante, vous pouvez la copier et la coller dans d'autres cellules.
    Drop-down list copied to other cells
  6. Maintenez ALT + F11 pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".
  7. 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.

    VBA window with ThisDocument selected, showing code pasted into the blank module
  8. 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.
    Demo showing a cell's color changing when an item is selected from the drop-down list

Meilleurs outils de productivité pour Office

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

🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone 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 / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

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

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

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

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