Microsoft 365 Mise en forme conditionnelle

Gourbi1986

XLDnaute Nouveau
Bonjour à tous,

Petit souci du lundi matin :)

J'ai créé une mise en forme conditionnelle pour faire ressortir en couleur les dates dépassées de 5 jours, sur une colonne où s'applique une formule vba,
mais bon.. ça ne fonctionne pas :(
Quelqu'un aurait-il une idée svp ?

Merci d'avance :)
 

Pièces jointes

  • Planning testvba2.xlsm
    32.9 KB · Affichages: 14
Solution
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) )

chris

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

sylvanu

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

Discussions similaires

  • Résolu(e)
Microsoft 365 MEFC en vba
Réponses
12
Affichages
457

Membres actuellement en ligne

Statistiques des forums

Discussions
292 828
Messages
1 926 639
Membres
183 158
dernier inscrit
moerai