Find une date

Bonjour tout le monde,

Je bloque sur une recherche de date et je comprends pas pourquoi ça ne fonctionne pas.

Jour = "18/06/2015"
Set CelluleDate = Sheets("Classements").Columns(1).Find(Jour, lookat:=xlPart)

Ma variable me renvoie "Nothing" ce qui signifie que le string recherché n'est pas trouvé, hors j'ai une liste dans ma colonne A qui est du type

01/01/2015

02/01/2015

18/06/2015

Une idée ?

Merci par avance pour votre aide.

Cordialement,

bonjour,

une proposition

Jour = datevalue("18/06/2015")
Set CelluleDate = Sheets("Classements").Columns(1).Find(Jour, lookat:=xlwhole)
 

Bonjour,

C'est parfait merci.

Cordialement,

Rechercher des sujets similaires à "find date"