Fonction VLOOKUP Fermé

Question

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

M-12 · Answer

Bonjour,
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

Bel_6625 · Answer

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).

Fonction VLOOKUP

2 réponses

Discussions similaires

Newsletters