XL 2016 Jeux d'icônes sur colonne date

  • Initiateur de la discussion Initiateur de la discussion Armisa
  • 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 !

Armisa

XLDnaute Nouveau
Bonjour à tous,

Je demande votre aide pour résoudre un problème sur la mise en forme conditionnelle sur Excel

J'aimerais appliquer un jeu d'icônes dans la colonne date selon la condition suivante : si le numéro BDC est vide, la date doit afficher un point rouge, sinon elle doit rester rouge.

Je vous remercie d'avance pour votre aide.
 

Pièces jointes

Solution
Sorry.
Ma version d'XL(2007) ne permet de gérer des icones que sur les cellules où elles sont, pas sur d'autres cellules d'autres colonnes. 🙁
Tout au plus, avec 2007, il faut ajouter une colonne avec :
VB:
=SI(ET(F2<>"";G2="");0;100)
et deux MFC en colonne E et F.
1729672729429.png
Bonsoir Armisa,

Pas bien compris, soit la date doit être rouge, soit elle a un point rouge ?
Un essai en PJ, mais pas de point juste en rouge si pas de BDC.
Bonjour @sylvanu

Merci pour votre retour.

Comme vous pouvez le constater dans le tableau, toutes les icônes de la colonne date sont actuellement affichées en vert.

Cependant, ce que je souhaitais, c'était que les dates sans BDC apparaissent avec des icônes rouges, tandis que les autres dates restent en vert.
 

Pièces jointes

  • Screenshot_2024-10-23-05-13-59-488_cn.wps.moffice_eng.jpg
    Screenshot_2024-10-23-05-13-59-488_cn.wps.moffice_eng.jpg
    220.9 KB · Affichages: 10
Sorry.
Ma version d'XL(2007) ne permet de gérer des icones que sur les cellules où elles sont, pas sur d'autres cellules d'autres colonnes. 🙁
Tout au plus, avec 2007, il faut ajouter une colonne avec :
VB:
=SI(ET(F2<>"";G2="");0;100)
et deux MFC en colonne E et F.
1729672729429.png
 

Pièces jointes

Dernière édition:
Sorry.
Ma version d'XL(2007) ne permet de gérer des icones que sur les cellules où elles sont, pas sur d'autres cellules d'autres colonnes. 🙁
Tout au plus, avec 2007, il faut ajouter une colonne avec :
VB:
=SI(ET(F2<>"";G2="");0;100)
et deux MFC en colonne E et F.
Regarde la pièce jointe 1205759
Bonjour @sylvanu

Ça ne correspond pas vraiment à ce que j'attendais, mais je pense aussi que c'est la seule solution possible, car on ne peut pas appliquer ce genre de formule avec les jeux d'icônes dans la mise en forme conditionnelle.

Merci quand même pour ton temps et ton idée !😊

Bonne journée
 
Hello,
une idée en passant (je ne sais pas si c'est faisable et je ne suis pas assez balaise en formule pour le faire moi-même) :
Toutes les dates ont pour heure 00:00:00 . Si on change cette valeur en fonction de la cellule adjacente et que l'on met dans la formule de la MFC pour la règle de sélection de l'icône quelque chose qui vient comparer si l'heure de la date est supérieure à 0 ?
A noter que moi dans mes jeux d'îcones je n'ai pas de vert fluo plutôt du vert bleu.
Ami calmant, J.P
 
Dernière édition:
Re,
@JurassicPork,
Comme en colonne F sont des dates et non des formules, votre solution reviendrait à créer une colonne avec des formules, donc quand même une colonne supplémentaire comme pour ma solution.

@Armisa,
Pourquoi tenez vous à vos icones ?
On pourrait très bien être aussi lisible avec un jeu de couleur, et il n'y aurait pas de colonne supplémentaire.

1729757184962.png
 
En trichant , en utilisation du vba qui trace des cercles colorés dans les cellules de date 😉 :
cercles.gif

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("numBds")) Is Nothing Then
        DrawCircles
    End If
End Sub

Code:
Sub DrawCircles()
    Dim rng As Range
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
       shp.Delete
    Next shp
    Set rng = Range("Dates")
    For Each cell In rng.Cells
        Dim x As Single
        Dim y As Single
        x = (cell.Height / 1.5) * 0.1
        y = (cell.Height / 1.5) * 0.1
        Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, _
                          Top:=cell.Top - x + 2, _
                          Left:=cell.Left - y + 2, _
                          Height:=(cell.Height / 1.5) + 2 * x, _
                          Width:=(cell.Height / 1.5) + 1.5 * y)
        shp.Line.Weight = 0.5
        If cell.Offset(0, 1).Value > 0 Then
         shp.Fill.ForeColor.RGB = RGB(0, 255, 0) ' Vert
        Else
         shp.Fill.ForeColor.RGB = RGB(255, 0, 0) ' Rouge
        End If
    Next cell
End Sub
 
Re,
@JurassicPork,
Comme en colonne F sont des dates et non des formules, votre solution reviendrait à créer une colonne avec des formules, donc quand même une colonne supplémentaire comme pour ma solution.

@Armisa,
Pourquoi tenez vous à vos icones ?
On pourrait très bien être aussi lisible avec un jeu de couleur, et il n'y aurait pas de colonne supplémentaire.

Regarde la pièce jointe 1205819
Re,
@JurassicPork,
Comme en colonne F sont des dates et non des formules, votre solution reviendrait à créer une colonne avec des formules, donc quand même une colonne supplémentaire comme pour ma solution.

@Armisa,
Pourquoi tenez vous à vos icones ?
On pourrait très bien être aussi lisible avec un jeu de couleur, et il n'y aurait pas de colonne supplémentaire.

Regarde la pièce jointe 1205819
Bonjour à tous,

Encore merci pour votre implication et votre aide.

@sylvanu
Pour information, mon tableau comporte plusieurs colonnes, et j'ai seulement pris quelques échantillons en raison de la confidentialité des données.

Tout cela pour te dire que j’ai déjà attribué une mise en MFC avec des jeux de couleurs à d'autres colonnes, c'est pourquoi j'ai choisi d'appliquer des jeux d'icônes dans la colonne date.

Excellent week-end et encore merci
 
- 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

Réponses
6
Affichages
97
Réponses
2
Affichages
275
  • Question Question
Microsoft 365 figer une date
Réponses
11
Affichages
477
Retour