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

kitsounet Messages postés 53 Statut Membre -  
Le Pingou Messages postés 12275 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

5 réponses

  1.
    blackmefias_3350 Messages postés 710 Date d'inscription   Statut Membre Dernière intervention   70
     

    Bonsoir, 

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

    1
    1. kitsounet Messages postés 53 Statut Membre 2
       

      Bonjour,

      Oui, il s'agit bien de word

      Merci

      0
  2. Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     

    Bonjour.

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

    0
    1. kitsounet Messages postés 53 Statut Membre 2
       

      Merci pour votre réponse...

      Quel dommage 

      0
  3. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     

    Bonjour,

    Regarder si possible via macro...!

    0
  4. ozone_ Messages postés 1823 Statut Membre 511
     

    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

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

    Posez votre question
  6. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     

    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

Enlever le contenu masque
Julie17 -
Julie17 -

2 réponses