Sub TESTRechercheLaDate()
Dim ladate As Date
Dim DateTexte As String, jour As String, mois As String
ladate = [O2]
jour = Day(ladate)
If jour < 10 Then jour = "0" & Day(ladate)
mois = Month(ladate)
If mois < 10 Then mois = "0" & Month(ladate)
DateTexte = jour & "/" & mois & "/" & Year(ladate)
ActiveSheet.Range("A7:A" & Range("A65535").End(xlUp).Row).Find(DateTexte, LookIn:=xlValues).Select
MsgBox "trouvé ligne " & ActiveCell.Row
End Sub
Sub testt01()
Dim datedeb As String
Dim toto As String, t
datedeb = Range("O1").Text
t = Split(datedeb, "/")
toto = t(0) & "/" & t(1) & "/" & t(2)
ActiveSheet.Range("A7:A" & Range("A65535").End(xlUp).Row).Find(datedeb, LookIn:=xlValues).Select
MsgBox "trouvé ligne " & ActiveCell.Row
End Sub
Sub testt()
Dim datedeb As String
datedeb = Range("O1").Text
datedeb = Left(datedeb, 6) & "20" & Right(datedeb, 2)
ActiveSheet.Range("A7:A" & Range("A65535").End(xlUp).Row).Find(datedeb, LookIn:=xlValues).Select
MsgBox "trouvé ligne " & ActiveCell.Row
End Sub