Recherche

Dans un document Word, une liste déroulante, par exemple une listes comme "OUI", "NON", "Je ne sais pas".

Lorsque l'on sélectionne une valeur, comment faire pour que cette dernière prenne une couleur particulière ?
Le "OUI" serait vert, le "NON" serait rouge, et enfin le "Je ne sais pas" serait noir.

Les champs de formulaire

Utilisation : Contrôles de formulaire hérité

On va créer cette macro qui se déclenchera automatiquement à la sortie du contrôle de formulaire. 

Sub couleurs()

ld = Selection.FormFields(1).DropDown.Value
ActiveDocument.Unprotect

Select Case ld
Case 1
Selection.Font.Color = wdColorGreen
Case 2
Selection.Font.Color = wdColorRed
Case 3
Selection.Font.Color = wdColorBlack
End Select
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End Sub

 

Pour que la macro se déclenche :

  • Double-cliquez sur chaque liste déroulante
  • Sous la rubrique Exécuter la macro, sélectionnez la macro en question dans la liste déroulante A la sortie.

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273688
Aujourd'hui: 11
Hier: 68
Cette semaine: 11
Semaine dernière: 783
Ce mois: 1.950