Transformer fonction index+match en vba

Bonjour à tous:

est-ce qu'il est possible de transformer une fonction du type:

Code:

---

{=INDEX('COST TeamMember'!A:H;MATCH(1;('COST TeamMember'!A:A=B3)*('COST TeamMember'!D:D=A3);0);8)}

---

en fonction vba.
J'ai essayé ceci mais sans succès:

Code:

---

1 2 3 4 5 6 7 8 9 10

Function CalcCostPerDay(strMember As String, strProject As String, intWorklog As Integer)   strCostSheet = Range("COST TeamMember'!A:H") strProjectColumn = Range("COST TeamMember'!A:A") strMemberColumn = Range("COST TeamMember'!D:D")   CalcCostPerDay = Application.Index(strCostSheet, Application.Match(1, (strProjectColumn = strProject) * (strMemberColumn = strProject), 0), 8)   End Function

---

Une idée svp

Bonjour,

Vu que tu pars d'une formule matricielle, regardes du côté de la fonction Evaluate.

Un truc dans ce genre (surement à adapter) :

Code:

---

CalcCostPerDay = Evaluate("INDEX('COST TeamMember'!A:H;MATCH(1;('COST TeamMember'!A:A=B3)*('COST TeamMember'!D:D=A3);0);8)")

---

merci Zirak pour ta réponse

mais si je fais ainsi, je ne peux pas jouer sur les arguments.
j'ai d'ailleurs fais une erreur dans mon exemple, le code serait:

Code:

---

1 2 3 4 5 6 7 8 9

Function CalcCostPerDay(strMember As String, strProject As String, intWorklog As Integer)   strCostSheet = Range("COST TeamMember'!A:H") strProjectColumn = Range("COST TeamMember'!A:A") strMemberColumn = Range("COST TeamMember'!D:D")   CalcCostPerDay = Application.Index(strCostSheet, Application.Match(1, (strProjectColumn = strProject) * (strMemberColumn = strMember), 0), 8)   End Function

---

le but est de pouvoir avoir en paramètre de la fonction les arguments strMember et strProject.

Bonjour,

C'est bien pour cela que je disais "à adapter" :D

Je ne t'ai indiqué que la façon de transformer ta formule matricielle en VBA via la fonction Evaluate (ta question initiale).


Pour intégrer tes paramètres, il faut les concaténer dans la formule, à la place de la valeur initiale (exemple, toujours à tester et à adapter) :

Code:

---

CalcCostPerDay = Evaluate("INDEX(" & strCostSheet & ";MATCH(1;(" & strprojectColumn & "=" & strProject & ")*(" & strMemberColumn & "=" & strMember & ");0);8)")

---

;)

je pensais qu'il n'était pas possible de modifier le contenu de Evaluate :oops:
je teste cela de suite

merqui ;)