Re : VBA Fonction rechercher laisse passer des occurrences
Avec le programme ci-joint qui était disponible dans le fichier Excel ci-joint :
Sub Recodages ()
On Error Resume Next
Range("A1").Select
Cells.Find(What:="verbatim", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Insert Shift:=xlToRight
Var = InputBox("Mot à rechercher ?")
For i = 1 To 20000
ActiveCell.Offset(0, -1).Select
With Range("H:I")
.Cells.Find(What:=Var, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End With
ActiveCell.Offset(0, 1).Select
If ActiveCell = "zzzzkk" Then
Cells.Replace What:="zzzzkk", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Exit Sub
Else: ActiveCell = "zzzzkk"
End If
ActiveCell.Offset(1, 0).Select
Next i
Merci par avance pour votre aide
Christof