Comment puis-je vérifier si une Date de la cellule Excel est dans une semaine?

Question

J'utilise VBA dans Excel 2010 pour faire un programme simple de rappel d'anniversaire. J'ai une colonne de dates (colonne D). Comment puis-je vérifier si une cellule est d'une semaine d'aujourd'hui?

Je ne suis pas sûr de ce que la syntaxe VBA pour l'instruction conditionnelle serait:

For i = 2 To MAX_ROW
    cell = ActiveSheet.Cells(i, 4)
    If (Date(cell) - Date(Now()) <= 7) Then
      MsgBox(ActiveSheet.Cells(i, 1)
    End If
Next

Answer 1

Si les cellules contiennent les anniversaires réels, vous aurez besoin de changer l'année pour l'année en cours, par exemple:

If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then