Find pour trouver une date

[Sylvainf]

Bonjour le forum.
Je n'arrive pas à paramétrer la commande Find dans VBA pour trouver une date précise écrite dans n'importe quel format.

DateChercher = 14-sept-2003 par exemple et si sur la feuille excel la date est sous le format 14/09/03 ça ne marche pas.

With Range(ActiveCell, ActiveCell.End(xlDown))
Set LeJourTrouvé = .Find(DateChercher, LookIn:=xlValues)
If Not LeJourTrouvé Is Nothing Then
firstAddress = LeJourTrouvé.Address
Do
etc....

 

[Delors]

essaie ceci:


With Range(ActiveCell, ActiveCell.End(xlDown))
Set LeJourTrouvé = .Find(CDate(DateChercher))
If Not LeJourTrouvé Is Nothing Then
.....

ca devrait à priori marcher, indépendamment du format de la date.

Delors

 

[Sylvainf]

Merci pour ton aide ,je vais essayer cette fonction.
Cordialement Sylvain.