Comparer des dates ..

[Onurb]

Salut a tous G une colonne avec des dates (passées et futures !), je voudrai par macro comparer mes valeurs à la date systeme et effectuer une action si date systeme > date colonne ?

Mon pb est qu'il trouve vrai a n'importe quelle date colonne !?

le format systeme est jj/mm/aa
le format colonne est pas forcement le même mais je peux m'arranger !

Merci aux âmes charitables qui auraient la réponse ;-)

 

[C@thy]

Bonjour Onurb et le forum,

essaie un tru comme ça :

Sub Macro1()

Dim i As Byte, Message As String

For i = 1 To 5

If IsDate(Range("A" & i)) And Range("A" & i) < Date Then
Message = Message & Range("A" & i) & " "

End If

Next i
MsgBox "La ou les date suivante ont été dépassées " & vbCrLf & Message
End Sub

C@thy