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
| Sub Test()
Dim i As Integer
Dim X1 As Double
Sheets("Tableau").Range("B2:B100000").Delete Shift:=xlUp
With Sheets("Jour X")
For i = 2 To 30000 Step 1
If Application.WorksheetFunction.VLookup(Sheets("Jour X").Range("H" & i), Sheets("Jour X+1").Range("H2:H100000"), 1, False) = Sheets("Jour X").Range("H" & i) Then
Sheets("Jour X").Range("H" & i).Copy Destination:=Sheets("Tableau").Range("B1048576").End(xlUp).Offset(1, 0)
Else
'?
End If
Next i
End With
X1 = Application.WorksheetFunction.CountA(Sheets("Tableau").Range("B2:B100000"))
Sheets("Récupération Données").Cells(19, 5).Value = X3
End Sub |