sebastien450
XLDnaute Occasionnel
Bonjour,
J'utilise depuis longtemps cette trame de find mais qui est lourde à insérer car parfois imbriquée plusieurs fois,
Avez-vous une piste pour alléger, la difficulté étant une recherche qui ne s'arrête pas au premier objet trouvé!
Merci
Sébastien
J'utilise depuis longtemps cette trame de find mais qui est lourde à insérer car parfois imbriquée plusieurs fois,
Avez-vous une piste pour alléger, la difficulté étant une recherche qui ne s'arrête pas au premier objet trouvé!
VB:
Set plage = Range(Cells(6, R2 - 48), Cells(213, R2 + 100)) ' sur ma plage de R2-48h à R2 +1000
With plage 'defini le range de travail, qui va devenir variable
Set c = .Find("CIBLE", LookIn:=xlValues, lookat:=False)
If Not c Is Nothing Then
Add1 = c.Address
Do
'MsgBox c.Row & c.Column
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Add1
End If
End With
Merci
Sébastien