Discussion :

[Lexa7751]

Bonjour à tous,

Je rencontre un problème étonnant : un morceau de code, en l’occurrence un simple averageifs, qui fonctionne, me renvoie bien les résultats mais m'affiche une erreur 1004 "impossible de lire la propriété AverageIf de la classe WorksheetFunction". Or tout semble bon, je ne comprends absolument pas d'où vient cette erreur...

Votre aide me serait d'un grand secours

Par avance merci !

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP



merci de nous copier directement le code VBA plutot que de mettre tout le fichier en PJ =]

[Lexa7751]

Salut !

Pas de problème, c'est noté Le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Average()
 
Worksheets("Feuil2").Activate
 
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)))
 
Next g
 
End Sub

[Jean-Philippe André]

Attention quand tu pointes sur des feuilles, il faut le faire partout. Vu que tu as active la feuille Feuil2, j'en deduis que tu souhaites alimenter les cellules de cette feuille.

Le code serait alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Average()
 
Worksheets("Feuil2").Activate
 
For g = 2 To 11
 
    Worksheets("Feuil2").Cells(g, 4) = Application.WorksheetFunction.AverageIfs(Worksheets("DATA").Range("T:T"), _
    Worksheets("Data").Range("E:E"), Worksheets("Feuil2").Cells(g, 1), _
    Worksheets("Data").Range("C:C"), Worksheets("Feuil2").Cells(g, 2), _
    Worksheets("Data").Range("R:R"), ">=" & (Year(Now()) - Worksheets("Feuil2").Cells(g, 3)))
 
Next g
 
End Sub

[Lexa7751]

Merci pour ta réponse rapide

Malheureusement, si tu le testes sur le fichier en PJ, cela ne résout pas le problème d'erreur 1004...