format de date pour comparaison
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
Citation:
DueDate="16.06.2009"
alors que la fonction Date me donne la date sous la forme
Citation:
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:
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
