Colorer des cellules en fonction des dates

Résolu/Fermé
randall Messages postés 422 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 26 février 2024 - 27 févr. 2023 à 12:13
randall Messages postés 422 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 26 février 2024 - 28 févr. 2023 à 11:14

Bonjour,

Dans un fichier Excel il faudrait que je mettre en couleur des cellules contenant des dates dont le jour est inférieur de 1 jour à l'année d'avant.

J'ai essayé le code suivant mais j'ai une erreur à l'instruction cell.Interior.ColorIndex = 4 (propriété

 no géré par cet objet

Sub avertir()   

                                                                             
Dim cell As Variant
For Each cell In Range("C6:C10")
If cell.Offset(0, -1).jour > 1 Then
cell.Interior.ColorIndex = 4
End If

next

end sub

exemple

14/02/2023      date  10/02/2024 il faut que la cellule se mette en rouge par exemple dès que la date est inférieur de 1 jour au 14/02/2023 l'année d'après en prenant comme référence la date du jour actuel pour comparer dès qu'on ouvre le classeur

Merci pour la réponse

A voir également:

3 réponses

yg_be Messages postés 22790 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 mai 2024 1 467
27 févr. 2023 à 15:22

bonjour,

Ce qui coince, c'est ceci:

cell.Offset(0, -1).jour

Je n'ai pas compris ce que tu voulais réaliser.

0
randall Messages postés 422 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 26 février 2024 9
27 févr. 2023 à 17:18

Merci pour la réponse en fait ce que je voudrais faire c'est pour un ami, éleveur de bétail qui met les dates de vaccinations de son bétail sur un carnet. Je lui ai proposé de faire une procédure sur Excel qui comporte les dates suivantes

Dans une colonne identification de l'animal sur la colonne à côté la date de vaccination et sur la colonne à côté la date du jour qui changera à chaque ouverture d'Excel.

Le but est de colorer en rouge la date de vaccination lorsque arrivera la date de rappel qui se situe 10 jours avant l'échéance. Pour faire court quand la date du jour arrivera dans un an moins 10 jours la cellule se colorera en rouge.

C'est plus explicite comme ça je pense

Merci si tu peux me répondre

0
yg_be Messages postés 22790 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 mai 2024 1 467
27 févr. 2023 à 18:00

Peut-être ainsi, alors:

Sub avertir()
Dim cell As Range
For Each cell In Range("C6:C10")
    If cell <> 0 And cell < Now() - 355 Then
        cell.Interior.ColorIndex = 4
    End If
Next
End Sub
1
randall Messages postés 422 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 26 février 2024 9
28 févr. 2023 à 11:14

Bonjour,

Merci pour la réponse c'est bon j'ai juste modifier les cellules à colorier c'est à dire pas la colonne date du jour mais celle de la vaccination soit 

cell.Offset(0, -1).Interior.ColorIndex = 4 

0