Microsoft 365 Mise en forme conditionnelle

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #2

Salut Gourbi1986,
Peut être en modifiant la ligne du code comme ceci
Avant : RetourPrévu = Format(Cells(2, F), "[$-40C]dd/mm/yyyy;@")
Après : RetourPrévu = CDate(Format(Cells(2, F), "[$-40C]dd/mm/yyyy;@"))

Cordialement
@+ Lolote83

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2020

• #3

Bonjour à tous

Même constat : les dates sont forcées en texte avec Format

Le colonne D du tableau structuré étant déjà formatée on peut simplifier

VB:

Function RetourPrévu(D)
RetourPrévu = 0
Ligne = D.Row
For f = 256 To D.Column + 2 Step -1
    If Cells(Ligne, f).Interior.Color <> RGB(255, 255, 255) Then
        RetourPrévu = Cells(2, f)
        Exit Function
    End If
Next f
End Function

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #4

Bonjour Gourbi,Lolote, Chris,
En PJ un essai avec comme MFC ( j'ai fait un peu de zèle ) :
Rouge si dépassée de plus de 5 jours : =ET(D5<>"";D5<=AUJOURDHUI()-5)
Orange si dépassé entre 1 et 5 jours : =ET($D5<>"";$D5<AUJOURDHUI())
Vert pour repérer le jour en cours : =ET(D5<>"";D5=AUJOURDHUI())

( Pour le rouge c'est =ET(D5<>"";D5<=AUJOURDHUI()-5) et non =ET(D5<>"";D5<AUJOURDHUI()+5) )

 

Pièces jointes

• Planning testvba2.xlsm

  30.7 KB · Affichages: 11

Vote positif 0 Vote négatif

Solution

G

Gourbi1986

XLDnaute Nouveau

• 7 Septembre 2020

• #5

Merci beaucoup @Lolote83, @chris et @sylvanu c'est du grand art 🙂

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2020

• #6

RE

La MFC était déjà présente mais les dates renvoyées par la fonction étaient en texte...

Edit : je répondais à sylvanu

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #7

@chris,
Dans le fichier initial de Gourbi en colonne D le format est Date. ( mais aligné à gauche )

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2020

• #8

RE

sylvanu à dit:

@chris,
Dans le fichier initial de Gourbi en colonne D le format est Date. ( mais aligné à gauche )

Cliquez pour agrandir...

Oui mais les données sont en texte ce que ne change pas le format...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #9

@chris,
Je voulais simplement dire qu'une MFC comme =ET(D5<>"";D5<=AUJOURDHUI()-5) marche directement sur ce fichier sans toucher à quoi que ce soit.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2020

• #10

Noooooooooooooon
La MFC bien présente n'opérait pas

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #11

Regardez ma PJ du post #4.
La MFC de Gourbil ne marchait pas car la formule était fausse.

sylvanu à dit:

( Pour le rouge c'est =ET(D5<>"";D5<=AUJOURDHUI()-5) et non =ET(D5<>"";D5<AUJOURDHUI()+5) )

Cliquez pour agrandir...

C'est ce que j'ai compris de la problématique, car je n'ai pas touché à quoi que ce soit du fichier initial excepté les MFC.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2020

• #12

RE

Ton fichier n'utilise pas la fonction RetourPrévu qui pose problème : si on modifie cette fonction, la MFC fonctionne dans le fichier original...

Nous sommes 2, Lolotte et moi, à avoir fait le constat

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #13

Oups.😱
Je me suis fait avoir par les cellules D5😀7 qui contiennent =RetourPrévu(F5), j'en ai déduis que pour toute la colonne c'était pareil.
Sorry.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Septembre 2020

• #14

😉

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 7 Septembre 2020

• #15

Re bonjour,
Effectivement, ce n'est pas facile de jongler entre plusieurs demandes en même temps.
@+ Lolote83

 

Vote positif 0 Vote négatif