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