[AC-2003] Condition sur des dates contenues dans une zone de liste

[mploki]

Bonjour à tous,

Je possède une zone de liste (XXX_Doc) dont la 5ème colonne sont des dates et la 3 ème colonne représente la référence de document. J'aimerai qu'il me retourne le nombre de ligne dont des dates ont dépassés la date d'aujourd'hui (Now) et dont la réfèrence n'est pas présente.

Voici le code que j'ai créé et qui ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Open(Cancel As Integer)
Dim i As Long
Dim j As Long
date_du_jour = FormatDateTime(Now)
 
j = 0
 
For i = 1 To 21
DateZL = FormatDateTime(Me.XXX_Doc.Column(4, i))
If (DateZL < date_du_jour And Me.XXX_Doc.Column(2, i) = "") Then
j = j + 1
MsgBox (Me.XXX_Doc.Column(3, i) & " " & DateZL & " " & date_du_jour)
End If
Next i
 
If j > 0 Then
MsgBox ("Attention il existe " & j & " documents dont la date d'envoi est antèrieure à la date actuelle")
End If

Je pense que c'est au niveau de la comparaison de la date contenu ds la ZL et la date d'aujourd'hui... Pb de format?
Merci de votre aide!

[Edit]
J'ai remarqué qu'il ne me sort que les lignes dont la réfèrence est absente et dont la date commence par "0" (ex: 05/07/2011) mais la date n'est pas forcement passée.

Et donc la condition: Date de la ZL < Date d'aujourd'hui, pas respectée...

[loufab]

Bonjour,
En VBA, par défaut, toutes les dates sont au format US/UK.

Pour forcer la comparaison utilise

Code :

Format(madate,"dd/mm/aaaa")

Attention également au comparaison avec une valeur Null. Es-tu certain que ta référence est "" et pas Null ?

Cordialement,