XL 2013 VBA - Calcul moyenne taux en fonction de 2 critères et report dans tableau

kaisermpt

XLDnaute Occasionnel
Bonjour à tous,

Je vous sollicite afin de disposer d'une macro me permettant de calculer la moyenne en calculant la moyenne de de plusieurs taux en fonction de 2 critères (Unité et Couleur) et de reporter ce résultat dans un tableau (onglet Conso)

Je vous transmets en exemple un fichier avec un onglet "Conso" et un onglet "Liste".

Cette macro sera utilisée dans un fichier ou j'aurais plus de 50 lignes et environ 45 colonnes d'où la nécessité de disposer d'une macro.

En vous remerciant d'avance,

Seb
 

Pièces jointes

  • test2018.xlsx
    9.6 KB · Affichages: 64

job75

XLDnaute Barbatruc
Bonsoir kaisermpt,

C'est un problème très classique où VBA n'est pas nécessaire.

Dans la feuille "CONSO" formule matricielle en B2 :
Code:
=SIERREUR(MOYENNE(SI((LISTE!$C$2:$C$31=$A2)*(LISTE!$D$2:$D$31=B$1);LISTE!$B$2:$B$31));"")
A valider par Ctrl+Maj+Entrée et à tirer à droite et vers le bas.

Le tableau doit bien sûr être mis au format pourcentage.

Et les titres me direz-vous ? Eh bien cherchez sur le forum pour obtenir des listes sans doublon.

On peut aussi utiliser un TCD.

A+
 
Dernière édition:

job75

XLDnaute Barbatruc
Re,

Cela n'a pas l'air de vous enthousiasmer.

Bon alors voyez le fichier joint avec les formules pour les titres, matricielles aussi.

Et c'est là qu'on découvre qu'il y a un espace superflu en C4 de la feuille "LISTE".

C'est malheureusement classique mais attention à Parkinson !

Bonne fin de soirée.
 

Pièces jointes

  • test2018 formules(1).xlsx
    18.1 KB · Affichages: 42

job75

XLDnaute Barbatruc
Bonjour kaisermpt,

J'ai parlé de TCD, voyez le fichier joint.

Cette macro toute simple permet de l'actualiser automatiquement :
Code:
Private Sub WorkSheet_Activate()
Application.DisplayAlerts = False
ThisWorkbook.RefreshAll
End Sub
Comme c'est naturel j'ai organisé le tableau source en tableau Excel.

A+
 

Pièces jointes

  • test2018 TCD-VBA(1).xlsm
    28.3 KB · Affichages: 31

Discussions similaires