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

[Philippe Tulliez]

Bonjour,
Avez-vous essayé la formule manuellement ne fusse que sur une colonne avec la fonction MOYENNE.SI.ENS, je serai surpris quelle fonctionne

[Vince70]

Si je demande le même calcul dans une cellule excel avec MOYENNE.SI.ENS j'obtiens le résultat sans aucun problème.

[Philippe Tulliez]

Bonjour,

Si je demande le même calcul dans une cellule excel avec MOYENNE.SI.ENS j'obtiens le résultat sans aucun problème.

Alors, le classeur que vous avez joint n'est pas le même que celui que vous utilisez.

Si j'ai bien compris la fonction, vous utilisez comme plage de critère1 la colonne des noms du tableau structuré de votre feuille "Données" et comme critère1 les cellules de la colonne B, dont le titre est "Opérateur". Or, comme opérateur, vous avez mis des lettres, alors que dans la colonne des noms, vous avez des noms et prénoms. Donc, déjà là, il y a un souci.

Petites remarques :

• Pourquoi référencez-vous les colonnes entières de la feuille "Données" alors que vous utilisez un tableau structuré ?
  J'ai placé "Logan GRAPPEY" en cellule B7 à la place de la lettre, renommé votre tableau t_Data au lieu de Tableau4, et écrit la formule suivante : =MOYENNE.SI.ENS(t_Data[%];t_Data[Nom];'Tableau récap'!$B7;t_Data[Date];'Tableau récap'!D$5), et là, cela a fonctionné.
• Pourquoi utiliser une boucle alors que vous pouvez écrire la formule en une seule instruction pour l'ensemble des colonnes et lignes du tableau, soit D7:AH25 ?
• Enfin, pourquoi utiliser du VBA alors que de simples formules suffiraient ?

[Vince70]

Bonjour,

Alors, le classeur que vous avez joint n'est pas le même que celui que vous utilisez.

Si j'ai bien compris la fonction, vous utilisez comme plage de critère1 la colonne des noms du tableau structuré de votre feuille "Données" et comme critère1 les cellules de la colonne B, dont le titre est "Opérateur". Or, comme opérateur, vous avez mis des lettres, alors que dans la colonne des noms, vous avez des noms et prénoms. Donc, déjà là, il y a un souci.

Petites remarques :

• Pourquoi référencez-vous les colonnes entières de la feuille "Données" alors que vous utilisez un tableau structuré ?
  J'ai placé "Logan GRAPPEY" en cellule B7 à la place de la lettre, renommé votre tableau t_Data au lieu de Tableau4, et écrit la formule suivante : =MOYENNE.SI.ENS(t_Data[%];t_Data[Nom];'Tableau récap'!$B7;t_Data[Date];'Tableau récap'!D$5), et là, cela a fonctionné.
• Pourquoi utiliser une boucle alors que vous pouvez écrire la formule en une seule instruction pour l'ensemble des colonnes et lignes du tableau, soit D7:AH25 ?
• Enfin, pourquoi utiliser du VBA alors que de simples formules suffiraient ?

J'utilise une boucle parce que certains opérateurs travaillent le weekend et donc je n'ai pas de données pour la semaine, donc je veux que le calcule s'arrete avant de faire une erreur.
Je veux faire ce calcul par vba afin que justement il n'y ait pas de formules dans les cases; juste une valeur fixe.

[Philippe Tulliez]

Bonjour,
Et pour ma remarque "Alors, le classeur que vous avez joint n'est pas le même que celui que vous utilisez." ?