Code vba pour recherchev avec plusieurs valeurs cherchées

Bonjour,

C'est possible en utilisant la fonction recherchevma (= recherchev multiples arguments) que j'ai développée (voir code ci-dessous).

RECHERCHEVMA
Cette fonction renvoie la valeur correspondante à une colonne d’une table en fonction des valeurs cherchées.

La syntaxe de cette fonction est :
RECHERCHEVMA (table ; no_index_col; valeur_cherchée _1 ; valeur_cherchée _2 ; … ; valeur_cherchée _n)

• table: Plage de cellules qui contient les données. Vous pouvez utiliser une référence à une plage (par exemple, A2:D8) ou un nom de plage. C’est sur les valeurs des colonnes 1 à n de table respectives à chaque argument de valeur_cherchée, que portent les différentes valeurs cherchées. Ces valeurs peuvent être du texte, des nombres ou des valeurs logiques.

• no_index_col: Numéro de la colonne de l’argument table dont la valeur correspondante doit être renvoyée. Si l’argument no_index_col est égal à 1, la fonction renvoie la valeur de la première colonne de l’argument table ; si l’argument no_index_col est égal à 2, la valeur de la deuxième colonne de l’argument table est renvoyée, et ainsi de suite.

• valeur_cherchée_i: La valeur à chercher dans la colonne i de la table selon la position i de l’argument valeur_cherchée. Le nombre d’arguments pour valeur_cherchée peut varier de 1 à n. Si une des valeurs cherchées n’est pas trouvée dans l’argument table, la fonction RECHERCHEVMA renvoie la valeur d’erreur #N/A.

CODE

Function RECHERCHEVMA(table As Range, indice_colonne As Integer, ParamArray arguments())

RECHERCHEVMA = CVErr(xlErrNA)
i_lig_max = table.Worksheet.UsedRange.Rows.Count
i_arg_max = UBound(arguments)
For i_lig = 1 To i_lig_max
    For i_arg = 0 To i_arg_max
        If table.Columns(i_arg + 1).Rows(i_lig) <> arguments(i_arg) Then Exit For
    Next
    If i_arg > UBound(arguments) Then
        RECHERCHEVMA = table.Columns(indice_colonne).Rows(i_lig)
    End If
Next

End Function

merci beaucoup pour cette réponse, mais est ce que vous pouvez me donner un exemple svp?

Bonjour a vous deux,

un exemple avec la fonction de Thev, qu'il vous faudra adapter vu que nous n'avons pas votre fichier

https://www.cjoint.com/c/FEznQ7FVjgf

Bon exemple. Rien à ajouter.

Si tu as modifié ta base comme suggéré, ma fonction VBA devrait répondre à ta demande.
Envoies ta nouvelle version.

Oui, les données de recherche sont bien contiguës dans la troisième feuille mais le prix n'y figure pas
ci-joint ton fichier plus léger avec la fonction intégrée
https://www.cjoint.com/c/FEEtKnH5MzO

ci-joint fichier adapté :
1-ajout de ma fonction : recherchevma
2- ajout d'une fonction "vide" pour la formule en G6 de la Feuil2
3- recadrage de la Feuil3

https://www.cjoint.com/c/FFdmj7A6zFb