XL 2016 Jeux d'icônes sur colonne date

Armisa · 22 Octobre 2024

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.

sylvanu · 23 Octobre 2024

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.

sylvanu · 22 Octobre 2024

Bonsoir Armisa,

Armisa à dit:
si le numéro BDC est vide, la date doit afficher un point rouge, sinon elle doit rester rouge.

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.

Armisa · 23 Octobre 2024

sylvanu à dit:
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.

sylvanu · 23 Octobre 2024

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.

Armisa · 24 Octobre 2024

sylvanu à dit:
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 · 24 Octobre 2024

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

sylvanu · 24 Octobre 2024

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.

jurassic pork · 24 Octobre 2024

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

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 · 26 Octobre 2024

sylvanu à dit:
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

XL 2016 Jeux d'icônes sur colonne date

Armisa

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Armisa

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Armisa

XLDnaute Nouveau

jurassic pork

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

jurassic pork

XLDnaute Occasionnel

Armisa

XLDnaute Nouveau

Discussions similaires