Discussion :

[ropineau]

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

[ropineau]

Bon ben j'ai trouve ma reponse sur un port qui viens tout juste d'etre resolu

Il faut que j'utilise la fonction Cdate

Romain