Imbrication VlookUp dans AverageIfs
Bonjour à tous,
Je rencontre un petit problème sur l'imbrication d'un recherchev au sein d'un averageifs codé sous VBA. Pourriez-vous s'il vous plait m'aider à corriger la syntaxe ?
L'objectif de ce morceau de code : écrire en (g,4) de la Feuil2 [g variant de 2 à 11 pour l'exemple] le résultat de ==> MOYENNE de la colonne T de l'onglet DATA si
1) La colonne E est égale à (g,1)
2) La colonne C est égale à (g,2)
3) La colonne R est >= à l'année d'aujourd'hui - (g,3)
4) La colonne T est >= à 50% de la valeur renvoyée par RechercheV((g,2), 'Références FH & Warranties' A:B, 2, faux)
Sub test()
For g = 2 To 11
Cells(g, 4) = Application.WorksheetFunction.AverageIfs(Worksheets("DATA").Range("T:T"), _
Worksheets("Data").Range("E:E"), Cells(g, 1), _
Worksheets("Data").Range("C:C"), Cells(g, 2), _
Worksheets("Data").Range("R:R"), ">=" & (Year(Now()) - Cells(g, 3)), _
Worksheets("Data").Range("T:T"), ">=" & 50 * Application.WorksheetFunction.vLookUp(Cells(g, 2), Worksheets("Références FH & Warranties").Range("A:B"), 2, faux) / 100))))
Next g
End Sub
J'espère avoir été assez clair :/