1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub Cherche()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim c As Range, Donnee As String
Dim NoLigneTrouvée As Integer
Set FL1 = Worksheets("Nov") 'Le fichier où tu colles
Set FL2 = Worksheets("Dec") 'Le fichier où tu cherches
For NoLig = 2 To FL2.Range("D65535").End(xlUp).Row 'commence à la ligne 7 de la feuille
Donnee = FL2.Cells(NoLig, 4) 'Place dans donnée la lettre trouvée
With FL1.Range("d2:d" & FL1.Range("D65535").End(xlUp).Row) 'Plage de recherche dans la feuille 1
Set c = .Find(Donnee, LookIn:=xlValues)
If Not c Is Nothing Then
FL2.Cells(NoLig, 1) = "Ok" 'Toujours Ok si lettre trouvée sur feuille 1
Else
FL2.Cells(NoLig, 1) = "Pas OK" 'Nouveau si lettre pas trouvée sur feuille 1
End If
Set c = Nothing
End With
Next
End Sub |
Partager