Bonjour,
J'ai un fichier Excel avec plusieurs erreurs aux noms p.e.x.
Les errurs suivantes:
DA GRAC Alex
DA GRCA Ale
DA GRAÇ Ale
DA GRA
DA GRAÇA
Remplacer par:
DA GRAÇA Alex
Mais le suivant script il me donne le résultat suivant:
DA GRAC Alex
DA GRCA Ale
DA GRAÇ Ale
DA GRAÇA Alex
DA GRAÇA
Sub FindReplaceAll_CountReplacements()
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim ReplaceCount As Long
fnd = "DA GRA"
rplc = "DA GRAÇA Alex"
For Each sht In ActiveWorkbook.Worksheets
ReplaceCount = ReplaceCount + Application.WorksheetFunction.CountIf(sht.Cells, "*" & fnd & "*")
sht.Cells.Replace What:=fnd, Replacement:=rplc, _
LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sht
Merci