macro recherche plusieurs critères

Charlotte

XLDnaute Nouveau
Bonjour,

je suis désolée de poser une question surement aussi bête, mais après deux jours de recherche je ne trouve pas ce qui ne fonctionne pas dans ma fonction.
Je cherche à faire l'équivalent en vba d'un index equiv pour trouver dans un tableau une valeur selon deux criteres. La premiere colonne du tableau correspond à une 1er critere, la 2e à un 2e et la 3e à la valeur que je veux récuperer, voici les deux fonctions que j'ai testé :

Public Function Lxa(Age As Double, Anciennete As Double) As Long()
Dim i As Long
For i = 2 To 5
If Cells(i, 1).Value = Age Then
If Cells(i, 2).Value = Anciennete Then
Lxa = Cells(i, 3).Value
End If
End If
Next i
End Function

Public Function test(Age As Double, Anciennete As Double) As Long()
Dim ag As Range
Dim anc As Range
Dim prob As Range
ag = Range("A2:A5")
anc = Range("B2:B5")
prob = Range("C2:C5")
test = Evaluate("INDEX(prob,MATCH(1,(ag=""" & Age & """)*(anc=""" & Anciennete & """),0)")
End Function

Quand je lance les fonctions, ça me renvoie systematiquement "#VALEUR"

Merci énormément d'avance si quelqu'un peut m'aider
 

Pièces jointes

  • selectiondeuxcriteres.xlsm
    16.3 KB · Affichages: 71

Discussions similaires

Réponses
1
Affichages
168
Réponses
0
Affichages
154

Statistiques des forums

Discussions
312 295
Messages
2 086 956
Membres
103 404
dernier inscrit
sultan87