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

Supposons que j'ai un tableau dans mon document Word et que maintenant, je souhaite insérer une liste déroulante à code couleur dans une colonne du tableau. Cela signifie que lorsque je sélectionne une option dans la liste déroulante, la couleur de la cellule devient rouge et lorsque je sélectionne une autre option dans la liste déroulante, la couleur de la cellule devient verte comme illustré ci-dessous. Comment pourriez-vous résoudre ce travail dans un document Word?

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

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

Les étapes suivantes peuvent vous aider à terminer cette tâche selon vos besoins, tout d'abord, insérez la liste déroulante, puis appliquez la couleur de la liste déroulante. Veuillez faire comme ceci:

1. Sélectionnez une cellule du tableau dans laquelle vous souhaitez insérer la liste déroulante, puis cliquez sur Développeur > Contrôle du contenu de la liste déroulante icône, voir capture d'écran:

2. La liste déroulante est insérée dans la cellule spécifique, puis cliquez sur Développeur > Propriétés, voir capture d'écran:

3. Dans le Propriétés du contrôle du contenu boîte de dialogue, veuillez effectuer les opérations suivantes:

(1.) Entrez le nom du titre dans le Titre zone de texte;

(2.) Cliquez sur Ajouter bouton aller au Ajouter un choix dialogue;

(3.) Dans le Ajouter un choix boîte de dialogue, saisissez l'élément de la liste déroulante dans le Nom d'affichage zone de texte.

4. Répétez l'étape 3 pour insérer d'autres éléments de liste déroulante selon vos besoins.

5. Après avoir créé la première liste déroulante, vous pouvez la copier et la coller dans d'autres cellules selon vos besoins. Voir la capture d'écran:

6. Ensuite, vous devez appliquer un code VBA, maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

7. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Ce document du Projet-Projet volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: Insérez la liste déroulante à code couleur dans le tableau d'un document Word:

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

Notes: Dans le code ci-dessus, Statut est le nom du titre lorsque vous créez la liste déroulante, et Complété, En Cours, Ne démarre pas sont les éléments de la liste déroulante, vous pouvez les modifier par vous-même. Et vous pouvez également changer la couleur selon vos besoins.

8. Ensuite, enregistrez et fermez la fenêtre de code, maintenant, lorsque vous sélectionnez un élément dans la liste déroulante, sa couleur relative sera remplie avec la cellule, voir capture d'écran:

Outils de productivité Word recommandés