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 ChercherTrouver()
Dim TabTemp(), NoLigne
'Classement des données à chercher par ordre de grandeur
'Je suppose que les données à chercher sont dans feuil1, colonne A
NoCol1 = 1
Worksheets("Feuil1").Columns(1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Classement des datas par ordre de grandeur
'Je suppose que les datas sont dans feuil2, colonne A
NoCol2 = 1
Worksheets("Feuil2").Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Je cherche dans Feuil2 chaque donnée prise dans feuil1 et si je trouve, je mets dans un tableau
NoLigne = 1
k = 0
For i = 1 To DernièreLigne
If Worksheets("Feuil2").Cells(i, NoCol2).Value = Worksheets("Feuil1").Cells(NoLigne, NoCol1).Value Then
k = k + 1
ReDim Preserve TabTemp(k)
TabTemp(k) = Sheets("feuil1").Cells(i, 12)
NoLigne = NoLigne + 1
End If
Next
End Sub |
Partager