Discussion :

[Vince70]

Bonjour à tous,
J'ai un problème de code, en particulier le calcul de la variable Prd.

For i = 7 To 19
Recap.Select
Cells(i, j).Select
Prd = WorksheetFunction.AverageIfs(Base.Range("C:C"), Base.Range("B:B"), Recap.Cells(i, 2), Base.Range("A:A"), Recap.Cells(5, j))
If Prd > 1 Then
Prd = 1
Recap.Cells(i, j) = Prd
Couleur
Else
Recap.Cells(i, j) = Prd
Couleur
End If
Next

A chaque fois j'ai le message d'erreur "Impossible de lire la propriété de AverageIfs de la classe Worksheetfunction"
Quand je survole les différents arguments, ils affichent bien les valeurs voulues.
Et si je supprime les 2 derniers critères, tout se calcule bien (mais ce n'est pas le résultat que je recherche).

Le pire, c'est que ce calcul a fonctionné il n'y a pas si longtemps.
Si qq'un a une idée de ce qui cloche, ou de la manière d'utiliser cette fonction en vba, je suis preneur.
Merci