Feu tricolore

[Gexk5]

Bonjour le forum,
Voici mon problème, après des recherches sur le forum, je n'ai pas trouvé ce que je voudrais adapter à mon cas, j'ai bien trouvé l'exemple d'indicateurs visuels mais le feu tricolore ne me convient pas.
J' ai 3 feux , vert, orange et rouge, suivi certaines conditions, je voudrai que le vert sois au premier plan et les autres en arrire plan , idem pour le orange et le rouge.
Je joints un fichier avec mes feux et les conditions.

Merci d'avance à tous ceux qui pourrons m'aider

PS: je travailles sous excel 2000 et 2003

 

[JCGL]

Re : Feu tricolore

Bonjour à tous,

Un essai en pièce jointe avec :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("G17") < Range("G20") Then
        ActiveSheet.Shapes("Picture 1").Visible = True
    Else
        ActiveSheet.Shapes("Picture 1").Visible = False
    End If

    If Range("G17") = Range("G20") Then
        ActiveSheet.Shapes("Picture 3").Visible = True
    Else
        ActiveSheet.Shapes("Picture 3").Visible = False
    End If

    If Range("G17") > Range("G20") Then
        ActiveSheet.Shapes("Picture 2").Visible = True
    Else
        ActiveSheet.Shapes("Picture 2").Visible = False
    End If

End Sub

A+ à tous

 

[Gexk5]

Re : Feu tricolore

Re le forum, JCGL
Merci pour ta reponse, après plusieurs re recherche j'ai trouvé un fil https://www.excel-downloads.com/threads/couleur-dessin-dapres-une-cellule.13338/ , je m'en suis inspiré et ca fonctionne, je garde ta soluce au chaud quand meme.

MERCI

 

[phlaurent55]

Re : Feu tricolore

Bonjour Gexk

ton fichier en retour
avec le paramètre
ZOrder msoBringToFront
dans la procédure

à+
Philippe

Edit: Bonjour Jean-Claude qui me bat au sprint lorsque je prends le temps de manger mon dessert.............................. qui était bien bon

 

[JCGL]

Re : Feu tricolore

Bonjour à tous,
salut Philippe 🙂,

A cette heure là prendre un dessert, c'est un repas de Communion ou un quatre heures Arf Arf.
Je regarde ta version

A++
A+ à tous

 

[phlaurent55]

Re : Feu tricolore

Re

Bonjour à tous,
salut Philippe 🙂,

A cette heure là prendre un dessert, c'est un repas de Communion ou un quatre heures Arf Arf.
Je regarde ta version

A++
A+ à tous

c'est de la gourmandise 😀 😀 😀

à+
Philippe

 

[Lii]

Re : Feu tricolore

Bon soir,

autre version, avec un + (possibilité de masquer les feux)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [G17] = "" And [G20] = "" Then
    ActiveSheet.Shapes("Picture 1").Visible = 0
    ActiveSheet.Shapes("Picture 3").Visible = 0
    ActiveSheet.Shapes("Picture 2").Visible = 0
    Exit Sub
  End If
  ActiveSheet.Shapes("Picture 1").Visible = ([G17] < [G20])
  ActiveSheet.Shapes("Picture 3").Visible = ([G17] = [G20])
  ActiveSheet.Shapes("Picture 2").Visible = ([G17] > [G20])
End Sub