Vérifiez si la date est entre les dates
La fonction VBA suivante vérifiera si une date donnée est comprise entre deux autres dates et si c'est le cas, elle renverra la valeur TRUE. Si la date n'est pas entre les dates, alors il renverra la valeur FAUX.
Fonction Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean ' Fonction booléenne pour comparer les dates ' Renverra TRUE uniquement lorsque Other_Date est entre Start_Date et End_Date ' Sinon, renverra FALSE ' Définir le résultat sur FALSE - valeur par défaut Compare_Dates = False 'Comparer les dates si ((Other_Date >= Start_Date) And (Other_Date <= End_Date)) Then 'Si l'autre date est entre la date de début et la date de fin, alors définir sur true Compare_Dates = True End If End Function
La fonction a trois arguments :
• Start_ date - la première date autorisée
• End_ Date - la dernière date autorisée
• Other_Date - la date comparée
La fonction doit être dans un module Excel. Il peut être exécuté à partir d'un classeur Excel, par exemple :
A4= Comparer_Dates(21-06-2003,12-02,2008,15-09-2008)
A3 =Comparer_Dates(A1,A2.A3)
A1= Comparer_Dates (13-03-2005,18-08-2005,A6)
Donc Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) donnera la valeur TRUE car le 23-06-2006 se situe entre le 25-04-2007 et le 12-07-2008.
De même, Compare_Dates (19-07-2003,12-12-2001,12-08-2008) renverra FALSE car le 12-12-2001 n'est PAS entre le 19-07-2003 et le 12-08-2008
Téléchargez la fonction .XLSM ici
