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.
Merci d'avance pour votre aide précieuse.
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
Partager