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
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
Code:
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