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 > biens, 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 Format 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 du profil 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ète, 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:

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

Plongez dans les fonctionnalités mises en évidence ci-dessous ou cliquez ici pour découvrir toute la puissance de Kutools for Word.

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/XLSX)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois 

✏ Édition du contenu: Rechercher et remplacer 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: Balayez Espaces supplémentaires  /  Sauts de section  /   Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  /  Pour plus d'outils de suppression, rendez-vous sur notre groupe Supprimer

➕ Insertions créatives: insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  QR Code  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  /  Découvrez-en plus dans notre groupe d'insertion

🔍 Sélections de précision: Identifiez des pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  /  Naviguez en toute simplicité grâce à notre groupe Select

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion 

Transformez vos tâches Word avec Kutools. 👉 Téléchargez avec un essai de 30 jours maintenant 🚀.

Plus       Téléchargement gratuit      Achat