Bonjour
ma formule ne marche pas
J'ai un un classeur SOURCE wb1, sa feuille ws1 définie, qui contient des infos texte sur une plage définie:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Set wb1 = Workbooks.Open("C:\Users\SOURCE.xlsm")
    Set ws1 = wb1.Worksheets("Dossier")
    Dim Plage As Variant
    Set Plage = Range("A8:AS2149")
L'info est en 43; ciolonne AQ

J'ai un classeur Synthèse wb2, sa feuille ws2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
  Set wb2 = ThisWorkbook
    Set ws2 = wb2.Worksheets("Feuil1")
C'est lui qu'on remplit.

Dans une boucle sur wb2 donc, je veux seulement reporter en (i,7) la valeur texte trouvée dans wb1 dans la "Plage", sur la base du critère cellule i, colonne 1 de ws2

J'écris tout ça comme ça:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ws2.Cells(i, 7) = Application.WorksheetFunction.VLookup(ws2.Cells(i, 1), ws1.Range("Plage"), 43, False)
Le retour est N#A...

Merci de votre aide !