Code vba qui ne fonctionne plus

Version imprimable

11/03/2025, 18h12
Vince70

1 pièce(s) jointe(s)

Code vba qui ne fonctionne plus

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
11/03/2025, 18h32
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
11/03/2025, 18h53
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.
11/03/2025, 19h05
Philippe Tulliez
Bonjour,

Citation:

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 ?
12/03/2025, 12h38
Vince70
Citation:
Envoyé par Philippe Tulliez

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.
12/03/2025, 12h52
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." ?
12/03/2025, 13h03
Vince70

Citation:

Envoyé par 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." ?

Le tableau envoyé est une version simplifiée, mais les données sont bien celles à utiliser.
12/03/2025, 13h22
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,

Citation:

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

Pièce jointe 665443
12/03/2025, 13h29
Vince70

Citation:

Envoyé par Philippe Tulliez

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

Pièce jointe 665443

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.
12/03/2025, 13h46
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:

Prd = WorksheetFunction.AverageIfs(Base.Range("C:C"), Base.Range("B:B"), Recap.Cells(i, 2), Base.Range("A:A"), Recap.Cells(5, j))
12/03/2025, 14h02
BENNASR

1 pièce(s) jointe(s)

Bonjour
qq point à revoir :

Code:

Set Base = ActiveWorkbook.Sheets("SYC")

et en bas

Code:

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

voici une version te permet normalement d'avancer
à tester avec prudence
12/03/2025, 15h05
Vince70

Citation:

Envoyé par BENNASR

Bonjour
qq point à revoir :

Code:

Set Base = ActiveWorkbook.Sheets("SYC")

et en bas

Code:

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!!