Bonjour,

Etant peu expérimenté avec VBA je me permets de vous solliciter car je n'arrive pas à réaliser une boucle avec la formule Vlookup.

Pouvez-vous m'éclairer par rapport à mes erreurs.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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(.Range("H" & i).Value, Sheets("Jour X+1").Range("H2:H100000"), 1, False) = i Then
        Sheets("Jour X").Range("H" & i).Copy Destination:=Worksheets("Tableau").Range("B1048576").End(xlUp).Offset(1, 0)
 
        End If
 
    Next i
End With
 
X1 = Application.WorksheetFunction.CountA(Worksheets("Tableau").Range("B2:B100000"))
Sheets("Récupération Données").Cells(19, 5).Value = X3
 
End Sub
Merci d'avance pour votre aide précieuse.