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 26 27 28 29 30
| Sub Test()
Dim FL1 As Worksheet
Dim Valeur As Variant, c As Range
Dim NoLigne As Long, DerLig As Long
Dim i As Long
i = 1
Set FL1 = Worksheets("BlaBla") ' Tu mets le nom de ta feuille où tu fais la recherche
NoLigne = 1 ' Si la recherche commence à la ligne 1
Do
If Not Cells(1, 10) = "" Then ' La valeur que tu recherches se situe en J1. Modifie pour que ça soit sur une autre feuille
Valeur = Cells(NoLigne, 1) ' Compare aux valeurs de la colonne A
Do
With FL1.Range("A" & NoLigne + 1, [A65536].End(xlUp))
DerLig = 0
Set c = .Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Cells(i + 1, 10) = Cells(NoLigne, 1) ' Place dans J, en-dessous de J1, les valeurs trouvées dans l'ordre (toujours les mêmes donc)
Cells(i + 1, 11) = Cells(NoLigne, 1).Offset(0, 3) ' Valeurs de D correspondantes dans H
Cells(i + 1, 12) = Cells(NoLigne, 1).Offset(0, 4) ' Valeurs de E correspondantes dans I
End If
Set c = Nothing
End With
Loop While DerLig > NoLigne
End If
NoLigne = NoLigne + 1
Loop While NoLigne < FL1.Range("A65536").End(xlUp).Row
End Sub |
Partager