Passer au contenu principal

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

Auteur : Xiaoyang Dernière modification: 2025-04-17

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 :

Démo montrant la couleur d'une cellule changeant lorsqu'un élément est sélectionné dans la liste déroulante

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.

    Bouton de contrôle du contenu de la liste déroulante sur le ruban
  2. Le menu déroulant est inséré dans la cellule concernée. Cliquez ensuite sur « Développeur » > « Propriétés ».
  3. Liste déroulante insérée dans une cellule spécifique avec l'option Propriétés en surbrillance
  4. 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 ».
      Boîte de dialogue Propriétés du contrôle de contenu et boîte de dialogue Ajouter un choix
  5. Répétez l’étape 3 pour insérer d’autres éléments de liste déroulante si nécessaire.
  6. Après avoir créé la première liste déroulante, vous pouvez la copier et la coller dans d’autres cellules.
    Liste déroulante copiée dans d'autres cellules
  7. maintenez ALT + F11 pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
  8. 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.

    Fenêtre VBA avec ThisDocument sélectionné, affichant le code collé dans le module vide
  9. 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.
    Démo montrant la couleur d'une cellule changeant lorsqu'un élément est sélectionné dans la liste déroulante

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 !

Onglets Kutools et Kutools Plus sur le ruban Word
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀
 

Meilleurs outils de productivité bureautique

Kutools for Word - 100+ outils pour Word