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." ?

[Vince70]

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

Le tableau envoyé est une version simplifiée, mais les données sont bien celles à utiliser.

[Philippe Tulliez]

Bonjour,

Le tableau envoyé est une version simplifiée, mais les données sont bien celles à utiliser.

J'ai l'impression que vous ne comprenez pas ma remarque. Vous demandez de l'aide et vous joignez un classeur avec des données qui ne peuvent fonctionner avec la fonction MOYENNE.SI.ENS

[Vince70]

Bonjour,

J'ai l'impression que vous ne comprenez pas ma remarque. Vous demandez de l'aide et vous joignez un classeur avec des données qui ne peuvent fonctionner avec la fonction MOYENNE.SI.ENS

Oui, si j'inscris la formule dans les cases du tableau tout fonctionne correctement.
Seulement je ne veux pas mettre de formule dans ce tableau, je ne veux que le résultat.
C'est pour ça que je veux faire le calcul par le code, mais malheureusement je n'arrive pas à le faire fonctionner.

[Philippe Tulliez]

Bonjour,
Je crois que c'est un dialogue de sourd.
Comment voulez-vous que l'on vous apporte une aide quelconque si vous déposez un classeur avec des données qui ne permettent pas de tester la formule WorksheetFunction.AverageIfs

Alors il y a déjà deux raisons pour laquelle vous obtenez une erreur et j'ai des doutes quand vous affirmez que cela fonctionnait

Dans l'instruction ci-dessous, vous utilisez deux variables i et J. Or j n'est pas incrémentée dans cette boucle. Vous avez une boucle de j bien plus haut et qui ne sert à rien pour cette ligne ci. De plus si la fonction renvoie une erreur comme par exemple #DIV/0!, vous aurez inévitablement un problème. Il vous faut donc gérer cette erreur

Code :

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

    Prd = WorksheetFunction.AverageIfs(Base.Range("C:C"), Base.Range("B:B"), Recap.Cells(i, 2), Base.Range("A:A"), Recap.Cells(5, j))

[BENNASR]

Bonjour
qq point à revoir :

Code :

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

Set Base = ActiveWorkbook.Sheets("SYC")

et en bas

Code :

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

Set Base = ActiveWorkbook.Sheets("Données")

voici une version te permet normalement d'avancer
à tester avec prudence

[Vince70]

Bonjour
qq point à revoir :

Code :

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

Set Base = ActiveWorkbook.Sheets("SYC")

et en bas

Code :

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

Set Base = ActiveWorkbook.Sheets("Données")

voici une version te permet normalement d'avancer
à tester avec prudence

Bonjour BENNASR,
J'ai recopié ton code et ça refonctionne parfaitement!
Je vois vraiment pas ce qui pouvait clocher...
Mais merci beaucoup en tous cas!!