Bonjour,

J'ai un souci sur des formats de dates.

Je compare 2 dates
- DueDate, qui est prise dans une cellule de la feuille
- Date, qui correspond a la date du systeme

Le probleme est que la variable DueDate me stocke la date sous la forme
DueDate="16.06.2009"
alors que la fonction Date me donne la date sous la forme
Date=16.06.2009
. La difference est donc la presence des guillemets ("")

Lorsque je compare les deux, ca ne marche pas

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For Each mycell In Range("I2:I60000")
    mycell.Select
    If ActiveCell.Value > 0 Then
        DueDate = ActiveCell
        If DueDate > Date + 7 Then
            ActiveCell.Offset(0, 10).Value = "Not due"
        End If
        If DueDate >= Date And DueDate <= Date + 7 Then
            ActiveCell.Offset(0, 10).Value = "Coming due"
        End If
        If DueDate < Date Then
            ActiveCell.Offset(0, 10).Value = "Overdue"
        End If
    Else: Exit For
    End If
Next mycell
Avez vous une idee ?

Merci

Romain