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

Question

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

blackmefias_3350 · Answer

Bonsoir,

Est-ce bien dans word que vous avez mis une liste déroulante  ?

Raymond PENTIER · Answer

Bonjour.

J'ai bien peur que la réponse soit NON ...

Le Pingou · Answer

Bonjour,

Regarder si possible via macro...!

ozone_ · Answer

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

Le Pingou · Answer

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

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

5 réponses

Votre réponse

Discussions similaires

Newsletters