Ecriture formule Index Equiv en VBA

Bonjour à tous,

Je n'arriva pas a trouvé la solution, pour mettre cette formule en VBA

=INDEX(Tbl_Recheche_Complet;EQUIV(F10;Tableau1[Désignation];0);1)

et voici dans mon code qui ne fonctionne pas

Private Sub CommandButton1_Click()
ItemNumArticle = Application.WorksheetFunction.Index(Recheche_Complet, Match(Item_Liste, Sheets("Tbl_Recherche").Range("C:C"), 0), 1)
End Sub

Bonjour,

Ainsi :

Private Sub CommandButton1_Click()
ItemNumArticle = Application.Index(Recheche_Complet, application.Match(Range("F10").value, Sheets("Tbl_Recherche").Range("C:C"), 0))
End Sub

ou alors (car je ne sais que ce qu'est Recheche_Complet ?) :

Private Sub CommandButton1_Click()
ItemNumArticle = Application.Index(Range("Tbl_Recheche_Complet").columns(1), application.Match([F10], Range("Tableau1[Désignation]"), 0))
End Sub

Je vous conseille d'utiliser des noms courts et clairs, ce vous facilitera la vie !

Cdlt,

Bonjour 3GB,

je vous remercie pour votre aide, et je prend note d'utiliser des noms plus court lorsque je nomme mes tableaux.

Bonne fin de journée.

Rechercher des sujets similaires à "ecriture formule index equiv vba"