Comment insérer des listes déroulantes codées par couleur dans un tableau Word ?
Supposons que vous disposiez d’un tableau dans votre document Word et que vous souhaitiez y 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 lorsqu’une autre option est sélectionnée, elle devient verte, comme illustré dans la capture d’écran ci-dessous :
Insérer des Liste déroulante codées par couleur dans un document Word à l’aide d’un code VBA
Les étapes suivantes vous guideront pour insérer une Liste déroulante dans une cellule de tableau et appliquer une mise en forme Couleur de fond à 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 » > « Liste déroulante Contrôle de contenu ».
Remarque : Si vous ne voyez pas l’onglet Développeur dans le ruban, consultez la page suivante : Comment afficher l’onglet Développeur dans le ruban Word.
- La liste déroulante est insérée dans la cellule concernée. Cliquez ensuite sur « Développeur » > « Propriétés ».
- Dans la boîte de dialogue « Propriétés du contrôle de contenu », procédez comme suit :
- Saisissez le nom de votre titre dans le champ « Titre ».
- Cliquez sur le bouton « Ajouter » pour faire apparaître la boîte de dialogue « Ajouter un choix ».
- Saisissez « Liste déroulante » dans le champ « Nom à afficher ».
- Répétez l’étape 3 pour ajouter d’autres listes déroulantes si nécessaire.
- Après avoir créé la première liste déroulante, vous pouvez la copier et la coller dans d’autres cellules.
- Maintenez enfoncée la touche ALT + F11 pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
- Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur « CeDocument » dans le volet « Projet » pour ouvrir le module, puis copiez le code suivant et collez-le 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 SubRemarque : Dans le code ci-dessus, «Status» correspond au nom du titre utilisé lors de la création de la liste déroulante, et «Complete», «In Progress» et «Not Start» sont les options disponibles. Vous pouvez personnaliser ces valeurs ainsi que leurs couleurs associées selon vos besoins.
- Fermez la fenêtre de code. Désormais, dès que vous sélectionnez un élément dans la liste déroulante, la cellule se remplit automatiquement de la couleur correspondante.
Meilleurs outils de productivité Office
Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…
📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…
✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…
🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…
➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…
🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…
⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...
🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !
Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
✨ Kutools for Office – Une installation, cinq outils puissants !
Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint
📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité
Meilleurs outils de productivité Office
Kutools pour Word- Outils 100+ pour Word
- 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
- 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
- ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
- 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
- ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
- 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !