Citation :
z = Workbooks(fichierA).Sheets(sheetName).UsedRange.Rows.Count
For a = 2 To z
zipCode = Workbooks(fichierA).Sheets(sheetName).Range("J" & a).Value
Workbooks(fichierB).Sheets(sheetName).Activate
On Error Resume Next
Set wordFound = Cells.Find(What:=zipCode, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
If Not wordFound Is Nothing Then
nosearcherror = "True"
Else
nosearcherror = "False"
End If
Next a
|