Contrôle du contenu de liste de zone déroulante

kitsounet Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour,

Dans un document word, j'ai inséré des contrôles de contenu de zone de liste déroulante.

Cela me permet de sélectionner si la performance est "Dans la norme", "Fragile", "Déficitaire".

Toutefois, je souhaiterais que lorsqu'elle est pathologique, le mot "Déficitaire" s'affiche en rouge. Or, quand je le mets en rouge, les autres : "Dans la norme" et "Fragile" deviennent également rouge si je les sélectionne.

Est il possible dans une même liste déroulante d'appliquer des styles différents ? Je n'y suis pas parvenue.

Merci de votre aide.

Belle journée


Windows / Chrome 104.0.0.0

A voir également:

5 réponses

Réponse 1 / 5
blackmefias_3350 Messages postés 710 Date d'inscription   Statut Membre Dernière intervention   64
 

Bonsoir, 

Est-ce bien dans word que vous avez mis une liste déroulante  ? 
1
kitsounet Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   2
 

Bonjour,

Oui, il s'agit bien de word

Merci

0
Réponse 2 / 5
Raymond PENTIER Messages postés 58994 Date d'inscription   Statut Contributeur Dernière intervention   17 368
 

Bonjour.

J'ai bien peur que la réponse soit NON ...
0
kitsounet Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   2
 

Merci pour votre réponse...

Quel dommage 

0
Réponse 3 / 5
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

Bonjour,

Regarder si possible via macro...!
0
Réponse 4 / 5
ozone_ Messages postés 1518 Date d'inscription   Statut Membre Dernière intervention   478
 

Effectivement comme le dit Le Pingou, par macro c'est possible de faire quelque chose mais ce n'est pas forcement quelque chose de très optimisé.

https://www.cjoint.com/c/LHuqlwYiGZw
 

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    
    With ContentControl.Range
        If .Text = "Déficitaire" Then
            .Font.ColorIndex = wdRed
        Else
           .Font.ColorIndex = wdBlack
        End If
    End With
    
End Sub

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

Bonjour,

Une possibilité à essayer

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Set objCc = ActiveDocument.ContentControls(1)
nomchoix = objCc.Range
If nomchoix = "Déficitaire" Then
    objCc.Range.Font.Color = wdColorGreen
End If
End Sub
0

Discussions similaires

problème de pixel
bernie33260 -
contrariness -

14 réponses
Suppression listes déroulantes
Archa -
Sam -

5 réponses
Supprimer liste déroulante Excel
SamAlex -
b@bd -

8 réponses
ca veut dire quoi wmg sur youtube ?
parissf -
cacadoigt -

27 réponses
Effacer le contenue d'une cellule avec liste déroulante
lebutters -
lebutters -

7 réponses