vba vlookup sur plusieurs feuilles

[vboise]

bonjour

je n'arrive pas à faire marcher un vlookup qui va chercher les données dans un tableau sur une autre feuille. L'erreur est "impossible de lire la propriete vlookup"

j'ai essayé différentes solutions (avec un ' devant) qui plante toutes et je n'ai rien trouvé sur les forums
Avez vous une idée pour me débloquer?

Merci

Sheets("2014").Select
With ActiveSheet
Set datasource = .Range(Cells(2, 1), Cells(60000, 11))
End With
'Set datasource = Workbooks(classeur_tdb).Worksheets("2014").Range(Cells(2, 1), Cells(60000, 11))
Workbooks(classeur_tdb).Worksheets("modele").Activate
For i = i_debut To i_fin
Cells(27, i) = Application.WorksheetFunction.VLookup(Cells(i, 1), datasource, 10, False)
'Cells(27, i) = Application.WorksheetFunction.VLookup(Cells(i, 1), Worksheets("2014").Range("A2:K10"), 10, False)
'Cells(27, i) = Application.WorksheetFunction.VLookup(Cells(i, 1), Worksheets("2014").Range("A2:K10"), 10, False)
'Cells(27, i) = Application.WorksheetFunction.VLookup(Cells(i, 1), '2014'!A2:K10, 10, False)
Next i
End If

 

[Herdet]

Re : vba vlookup sur plusieurs feuilles

Bonjour,
Une solution à adapter :

Sub Recherche()
   Set Src = Sheets("2014")
   Set DataSource = Range(Src.Cells(2, 1), Src.Cells(60000, 11))
   i_debut = 1: i_fin = 8
   With Sheets("modele")
      .Select
      For i = i_debut To i_fin
         Cells(27, i) = Application.WorksheetFunction.VLookup(Cells(i, 1), DataSource, 10, False)
      Next i
   End With
End Sub

Cordialement
Robert