Formule INDEX MATCH en VBA

Bonjour à vous,

J'ai de la difficulté à effectuer l'équivalent d'une formule "INDEX MATCH en VBA qui se situe dans la colonne en jaune dans le fichier ci-joint.

Il y aurait-il une manière d'obtenir l'équivalent en VBA de la formule? Les deux tableaux sont sur des feuilles différentes.

=RECHERCHEV([@Travail];Tableau2;COLONNE(Tableau2[Resp]);FAUX)

Merci!

Cordialement,

David

J'ai essayé de passer par un INDEX MATCH, mais cela ne semble pas fonctionner

Worksheets("Feuil1").Range("F2") = WorksheetFunction.INDEX(Sheets("Feuil2").ListObjects("Tableau2").Range("Tableau2[Resp]"), WorksheetFunction.MATCH(WorksheetFunction.INDEX(Sheets("Feuil1").ListObjects("Tableau1").Range("Tableau1[Travail]"), Sheets("Feuil2").ListObjects("Tableau2").Range("Tableau2[Travail]"), 0))

Petit up pour mon problème qui s'est perdu

Bonjour,

ceci peut être ?

[F2].FormulaR1C1 = "=VLOOKUP(Tableau1[@Travail],Tableau2,2,FALSE)"

P.

Bonjour,

La demande est un peu confuse.

Ci-dessous, une fonction VBA pour RECHERCHEV().

Public Function fnVLookup(lookup_value, table_array As Range, col_index_num As Long)
Dim result As Variant
    result = Application.VLookup(lookup_value, table_array, col_index_num, False)
    fnVLookup = IIf(IsError(result), "NC", result)
End Function

Cdlt.

Ça marche!

Merci!