Bonjour le Forum,

J ai un soucis avec ma macro qui me permet de faire un vlook up. Elle n affiche aucun resulat et aucun message d erreur, j essaie de comprendre d ou vient le probleme mais je bloque...


Je passe par un code VBA car les donnees viennent d un userform et je veux lancer la macro une fois les donnees importees dans la feuille excel.

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
23
24
25
Sub Test()
 
 
Dim ws1, ws2 As Worksheet
 
Dim i As Long
 
For i = 11 To LR
 
Set ws1 = ThisWorkbook.Sheets("Source")
Set ws2 = ThisWorkbook.Sheets("COMPASS Extraction")
Set rng = ws2.Range("A11")
LR = ws2.Range("A950000").End(xlUp).Row
 
    On Error Resume Next
   ws2(i, 11).Range = Application.WorksheetFunction.VLookup(ws2(i, 11), ws1.Range("C2:D28").Value, 2, False)
 
 
 
Next i
 
MsgBox ("done")
 
 
End Sub
Merci