Fonction VLOOKUP
Bell66
-
Bel_6625 Messages postés 19 Statut Membre -
Bel_6625 Messages postés 19 Statut Membre -
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
A voir également:
- Fonction VLOOKUP
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
2 réponses
Bonjour,
Teste comme ceci
Teste comme ceci
Sub 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
