michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200832 1 juil. 2005 à 21:27
bonsoir
tu peux tester cette adaptation de l'aide en ligne Excel
With Worksheets(1).Range("a1:a500")
Set c = .Find("laValeurRecherchee", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
MsgBox c.Row
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With