Alerte de couleur pour date

Bonjour.

J'ai déjà posté une question en rapport à un tableau qui rassemble des dates d'anniversaire. En fonction de la date du jour la cellule se colorise de différentes couleurs, si la date est dépassée ou non.

Par contre je voudrais rajouter une option, je voudrais que la cellule devienne orange pendant les 7jours avant la date d'anniversaire.

merci pour vos conseils.

Bonjour,

essai avec cette formule pour la mfc,

=ET(AUJOURDHUI()-A1<7;AUJOURDHUI()-A1>=0)

i20100 a écrit :

Bonjour,

essai avec cette formule pour la mfc,

=ET(AUJOURDHUI()-A1<7;AUJOURDHUI()-A1>=0)

Bonjour i20100 ,

Je viens de tester votre formule elle fonctionne seulement avec l'année en cours.

Il faudrait qu'elle ne prenne pas en compte l'année.

Merci

Bonjour,

Essaye ca

ET(A1-DATE(ANNEE(A1);1;1)-AUJOURDHUI()+DATE(ANNEE(AUJOURDHUI());1;1)<=7;A1-DATE(ANNEE(A1);1;1)-AUJOURDHUI()+DATE(ANNEE(AUJOURDHUI());1;1)>0)

Oonizuk a écrit :

Bonjour,

Essaye ca

ET(A1-DATE(ANNEE(A1);1;1)-AUJOURDHUI()+DATE(ANNEE(AUJOURDHUI());1;1)<=7;A1-DATE(ANNEE(A1);1;1)-AUJOURDHUI()+DATE(ANNEE(AUJOURDHUI());1;1)>0)

elle ne fonctionne pas.

Bonjour,

Une procédure qui agit sur les cellules sélectionnées (une à une). A adapter selon tes besoins

1) Date anniversaire = Bleu

2) Date précédant l'anniversaire entre 1 et 7 jour = Orange

3) Autres = Jaune

Sub Test()
    '***************************
    '* exemples de             *
    '* Valeurs pour COLOR       *
    '* ROUGE = 255             *
    '* BLEU Foncé = 16711680   *
    '* VERT Clair = 65280      *
    '* JAUNE = 65535           *
    '* GRIS = 8421504          *
    '* ORANGE = 26367          *
    '* MAGENTA = 16711935      *
    '* ROSE = 13408767         *
    '* BLEU CLAIR = 16776960   *
    '* BLANC = 16777215        *
    '* NOIR = 0                *
    '* VERT Foncé = 32768      *
    '***************************

    Dim C As Range
    For Each C In Selection
        DJ = Date 'date du jour
        DM = CDate(Day(C.Value) & "/" & Month(C.Value) & "/" & Year(DJ))
        Select Case DM - DJ
            Case 0
                C.Interior.Color = 16776960 'Jour anniversaire
            Case -7 To -1
                C.Interior.Color = 26367 '7 jours avant
            Case Else
                C.Interior.Color = 65535 'autres
        End Select
    Next
End Sub

Cordialement,

re,

à tester pour la mfc,

=ET(AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());MOIS(A2);JOUR(A2))<7;AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());MOIS(A2);JOUR(A2))>=0)

effectivement il y avait un oublie d'un signe moins, la mise en forme était sur les 7 jours suivant...

=ET(-A2+DATE(ANNEE(A2);1;1)+AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;1)<=7;-A2+DATE(ANNEE(A2);1;1)+AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;1)>0)

voir fichier attaché