Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Feu tricolore

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Gexk5
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Gexk5

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
Re : Feu tricolore

Bonjour à tous,

Un essai en pièce jointe avec :

Code: 
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Feu tricolore

Bon soir,

autre version, avec un + (possibilité de masquer les feux)
Code: 
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 MFC sur des cellules au format hh:mm:ss
Réponses
4
Affichages
316
Daffy02
D
  • Résolu(e)
XL 2010 Liste filtrée pour combobox à 1 ou x colonne(s) (Titre màj)
5 6 7
Réponses
97
Affichages
9 K
patricktoulon
T
  • Question Question
Microsoft 365 Tableau matrice d'aide à la décision
Réponses
2
Affichages
734
teuliere
T
A
  • Question Question
XL 2016 feux
Réponses
4
Affichages
1 K
JHA
J
Q
  • Question Question
XL 2019 Filtre entre 2 dates et Listbox
Réponses
2
Affichages
1 K
ChTi160
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
6 K
TooFatBoy
J
  • Question Question
Power Point Macro pour l'automatisation des infos dans une fiche de suivi
Réponses
0
Affichages
619
JPh2309
J
T
  • Résolu(e)
Microsoft 365 compter des couleurs et comparer [RESOLU]
Réponses
11
Affichages
2 K
TheSly
T
S
  • Résolu(e)
Autres tableau distances
Réponses
6
Affichages
2 K
stef12345
S
V
  • Verrouillé
  • Question Question
XL 2010 Besoin d'aide ecxel et dessin en pixélisation
Réponses
6
Affichages
1 K
David XLD
B
  • Question Question
XL 2019 mise en forme conditionnelle donne des résultats bizarres
Réponses
8
Affichages
1 K
sylvanu
A
  • Résolu(e)
XL 2016 Plusieurs conditions, donc plusieurs couleurs sur une date
Réponses
6
Affichages
971
Ani4ki
A
P
  • Question Question
Microsoft 365 suivi budgetaire
Réponses
11
Affichages
3 K
Dudu2
B
  • Question Question
Autres couleur de texte identique a la couleur de cellule
Réponses
5
Affichages
1 K
dg62
D
  • Question Question
Comment colorer la cellule sous mes "feux"
Réponses
4
Affichages
793
Drikousky
D
S
  • Résolu(e)
XL 2016 VBA affichage image/sélection ligne après click souris
Réponses
2
Affichages
2 K
SEBABOO
S
K
  • Résolu(e)
XL 2016 Mise en forme conditionnelle à condition
Réponses
13
Affichages
2 K
K4te
K
Y
  • Question Question
XL pour MAC Méthode des J adapté
Réponses
10
Affichages
7 K
YasinGS
Y
Q
  • Question Question
XL 2019 Optimiser la lecture d'une base de données
Réponses
0
Affichages
1 K
qalibo30
Q
L
  • Résolu(e)
XL 2019 Fichier inventaire
Réponses
7
Affichages
4 K
Lonire
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…