Find et formule

[guigui76]

Bonsoir, comment puis-je faire pourque Find prenne en compte les résultats de formule?

Je m'explique je recherche toutes les valeurs d'une date en ligne 4 pour les copie dans une autre parti du fichier.
Je vous remercie
Bonne soirée

Sub cherche()
Dim a As Date
With Worksheets("Feuil1").Range("b4:iv4")
 a = CDate("16/10/2010")
    Set c = .Find(CDate("16/10/2010"), , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           c.Interior.ColorIndex = 33
           Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

 

[guigui76]

Re : Find et formule

J'ai trouvé
en mettant ceci cela fonctionne

Set c = .Find(CDate("16/10/2010"), LookIn:=xlValues)