problème avec la fonction vlookup

Question

Bonjour, 
je dois faire une macro qui va chercher des valeurs d'un tableau qui se trouve dans un autre classeur excel, et cela en fonction du nom d'un objet qui se trouve dans la cellule cells(i,2) alors j'ai utilisé la fonction vlookup

Cells(i, 5).Value = Application.VLookup(Cells(i, 2).Value, Workbooks("C:\Users\imanou\Desktop\macro\Data.xls" ).Sheets("Sheet1").Range("A2:F500"), 4, False)

mais cette fonction me renvoie une erreur.

je ne vois pas comment faire ca autrement ni pourquoi j'ai cette erreur.

quelqu'un aurait-il une idée?

pijaku · Answer

Bonjour,
Peut être avec la fonction .Find dont voici un exemple :
Sub cherche()
Dim Trouve As Range
Dim Valeur_cherchee, Valeur_trouvee As String

Valeur_cherchee = Cells(i, 2).Value
WorkBooks.Open Filename:="C:\Users\imanou\Desktop\macro\Data.xls"
With Sheets("Sheet1")
Set Trouve = .Columns(1).Cells.Find(what:=Valeur_cherchee)
If Trouve Is Nothing Then
    MsgBox "Pas trouvé"
Else
    Valeur_trouvee = Trouve.Offset(0, 4).Value
End If
End With
ActiveWorkBook.Close
Cells(i, 5).Value = Valeur_trouvee

Set Trouve = Nothing
End Sub

Problème avec la fonction vlookup

1 réponse

Discussions similaires

Newsletters