XL 2016 Jeux d'icônes sur colonne date

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

  • Suivi BDC.xlsx
    9.4 KB · Affichages: 6
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

Armisa

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Suivi BDC (1).xlsx
    9.7 KB · Affichages: 7
Dernière édition:

Armisa

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

jurassic pork

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

jurassic pork

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

Armisa

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

Discussions similaires

Réponses
2
Affichages
240

Membres actuellement en ligne

Statistiques des forums

Discussions
315 087
Messages
2 116 083
Membres
112 654
dernier inscrit
SADIKA