Discussion :

[titi57]

Bonjour

Je suis à la recherche d'une formule pour que lorsque les dates arrivent à échéance de 6 mois, elle change de couleur d'écriture.

En vous remerciant d'avance pour votre aide.

[ESVBA]

Bonsoir Titi57, le forum,

il te faut un code VBA ?
Il faut plus de précision (fais une boucle sur les cellules et un test "If...Then" sur la formule similaire à celle de ci-dessous).

Sinon une simple mise en forme conditionnelle...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

arrivent à échéance de 6 mois

Donc on est aujourd'hui à plus de 6 mois de la date à comparer, avec une formule du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=AUJOURDHUI()-C13>DATE(0;7;0)

Avec en "C13" la date à comparer.
Voir la fonction "Date()" pour régler le nombre de jour précisément (6 mois révolu ou non).

ESVBA

[titi57]

Bonjour

Non six moi precise

[mayekeul]

bonjour,
une petite fonction qui va faire la comparaison

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
function CompareDate(DateToCompare as date) as boolean
dim dtPlusSixMois as date
 
dtPlusSixmois=dateadd("m",6,datetocompare)
if dtplussixmois=datetocompare then comparedate=true else comparedate=false
end function

voili voualou

[titi57]

bonjour

et la fonction je la met ou??

[ESVBA]

la formule dans un module indépendant :

ALT + F11 > Insertion > Module > CTRL + S

Elle est disponible maintenant dans la feuille de calcul.

ESVBA

[mercatog]

@ maykeul, à main levée?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function CompareDate(DateToCompare as date) as boolean
dim dtPlusSixMois as date
 
dtPlusSixmois=dateadd("m",6,date) 'ce que tu avais mis ici
if dtplussixmois=datetocompare then comparedate=true else comparedate=false
end function

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function CompareDate(DateToCompare As Date) As Boolean
CompareDate = IIf(DateDiff("d", DateToCompare, DateAdd("m", 6, Date)) = 0, True, False)
End Function