Bonsoir à tous
je souhaite faire fonctionner la fonction WorksheetFunction.AverageIfs avec des variables tableau.
Je sais faire fonctionner chacun séparément, mais le mariage des 2 ne fonctionne pas avec mon code. Il me retourne l'erreur "Objet requis".
Sur la ligne MoyenneSiEns, le code fonctionne
Sur la ligne MOY il plante avec l'erreur "Objet requis"
Ci-dessous mon code :
Sub test_2()
Dim TABLEAU()
Dim MoyenneSiEns As Double
Dim MOY As Double
ReDim TABLEAU(11, 2)
TABLEAU = Range("A2:C11").Value
MoyenneSiEns = Application.WorksheetFunction.AverageIfs(Range("C:C"), Range("A:A"), "=2")
MOY = Application.WorksheetFunction.AverageIfs((Application.Index(TABLEAU, Evaluate("Row(2:" & 9 & ")"), 2)), (Application.Index(TABLEAU, Evaluate("Row(2:" & 9 & ")"), 0)), 2)
End Sub
Merci de votre
Teckno