Fonction VLOOKUP
Bonjour,
Pourriez vous me dire c'est quoi le soucis avec mon code ?
On me met erreur de compilation (Membre de méthode ou de donnée introuvable) sur vlookup. c'est la première fois que j'utilise VLOOKUP
Sinon on m'a aussi parlé de la fonction equiv
Sub t()
Dim rngLookUpValue As Range, rngData As Range
'TableauPassage= nom de la feuille de données
With ThisWorkbook.Worksheets("TableauPassage")
'plage de données
Set rngData = .Range("A1:B23")
'Valeur recherchée dans la cellule C7
Set rngLookUpValue = .Range("C7")
End With
Resultat = ThisWorkbook.Worksheets.VLookup(rngLookUpValue.Value, rngData, 2, False)
Set rngData = Nothing: Set rngLookUpValue = Nothing
End Sub
Pourriez vous me dire c'est quoi le soucis avec mon code ?
On me met erreur de compilation (Membre de méthode ou de donnée introuvable) sur vlookup. c'est la première fois que j'utilise VLOOKUP
Sinon on m'a aussi parlé de la fonction equiv
Sub t()
Dim rngLookUpValue As Range, rngData As Range
'TableauPassage= nom de la feuille de données
With ThisWorkbook.Worksheets("TableauPassage")
'plage de données
Set rngData = .Range("A1:B23")
'Valeur recherchée dans la cellule C7
Set rngLookUpValue = .Range("C7")
End With
Resultat = ThisWorkbook.Worksheets.VLookup(rngLookUpValue.Value, rngData, 2, False)
Set rngData = Nothing: Set rngLookUpValue = Nothing
End Sub
2 réponses
-
Bonjour,
Merci pour ton retour.
On me dit toujours que j'ai un soucis avec le vlookup avec erreur 1004(impossible de lire la propriété Vlookup de la classe worksheetFunction). -
Bonjour,
Teste comme ceciSub t() Dim rngLookUpValue As Range, rngData As Range, Resultat% 'TableauPassage= nom de la feuille de données With ThisWorkbook.Worksheets("TableauPassage") 'plage de données Set rngData = .Range("A1:B23") 'Valeur recherchée dans la cellule C7 Set rngLookUpValue = .Range("C7") End With Resultat = WorksheetFunction.VLookup(rngLookUpValue.Value, rngData.Value, 2, False) Set rngData = Nothing: Set rngLookUpValue = Nothing End Sub
