Discussion :

[yzf-r]

Bonjour à tous:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 {=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Zirak]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yzf-r]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Zirak]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yzf-r]

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

merqui