Date en couleur

[Hervé]

Bonsoir le Forum

J'ai créer un fichier de tri pour le contrôle technique des voitures d'un parc.

Voilà mon problème il porte sur la colonne avant le :

Il faudrait que par rapport à la date actuelle que si la date est supérieur à 30 jour la couleur de la date devrait passer au rouge et si c'est entre 31 et 40 jours la couleur devrait passer à l'orange et supérieur à 40 jours la couleur est normal donc noir.

Et évidemment c'est là que je bloque, j'ai fait une macro qui se positionne bien sur la cellule D5 et une boucle mais rien de se passe.

Pourriez-vous jeter un coup d'œil.

Un grand merci pour votre collaboration.

Fichier joint.

Salutations

Hervé

 

[Zon]

Salut,

Il y a un petit souci dans ton explication >30 et entre 31 et 40 pour moi c'est pareil, en admettant que ce soit inférieur à 30 jours pour le rouge , testes ceci:

Sub MiseEnC()
Dim I&
For I = 5 To [A65536].End(xlUp).Row
With Range("D" & I)
Select Case DateDiff("d", .Value2, Now)
Case Is < 31: .Font.ColorIndex = 3
Case 31 To 40: .Font.ColorIndex = 45
Case Is > 40: .Font.ColorIndex = 1
End Select
End With
Next I
End Sub

A+++

Ps au fait quand on mets des trucs pour masquer des options en ouverture d'un classeur, il faut pas oublier de les remettre en place avant de le fermer.

 

[Hervé]

Merci zom

Merci pour le code c'est super et pour le conseil.

Hervé