Bonjour à tous,
J'ai un petit soucis avec la méthode Find.
en effet, j'utilise des filtres (auto) sur ma feuille xls, mais lorsque j'utilise la méthode find, le parcours ne se fait que sur les cellules filtrées.
Alors que je voudrais le faire sur l'entièreté des lignes.
Ci joint un bout de mon code, si besoin:
Merci beaucoup,
Julicraps.
J'ai un petit soucis avec la méthode Find.
en effet, j'utilise des filtres (auto) sur ma feuille xls, mais lorsque j'utilise la méthode find, le parcours ne se fait que sur les cellules filtrées.
Alors que je voudrais le faire sur l'entièreté des lignes.
Ci joint un bout de mon code, si besoin:
Code:
x = Cells(Target.Row, 2).Value
Application.EnableEvents = False
With ActiveSheet.Columns(2)
Set f = .Find(What:=x, LookIn:=xlValues, MatchCase:=True)
MsgBox (f.Address)
If Not f Is Nothing Then
firstaddress = f.Address
Do
Set f = .FindNext(f)
If (f.Address = firstaddress) And Range(f.Address).Offset(0, 16).Value = "DOCOK" Then
'Mettre en évidence les CR ok--------------------
With Range("rangeCR")
Set h = .Find(x, LookIn:=xlValues)
If Not h Is Nothing Then
firstaddress = h.Address
Do
Range(h.Address).Offset(0, 9).Interior.ColorIndex = 35
Set h = .FindNext(h)
Loop While Not h Is Nothing And h.Address <> firstaddress
End If
End With
'END Mettre en évidence les CR ok--------------------
End If
Loop While Not f Is Nothing And f.Address <> firstaddress And Range(f.Address).Offset(0, 16).Value = "DOCOK"
End If
End With
Merci beaucoup,
Julicraps.