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

[kaisermpt]

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

 

[job75]

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 :

=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+

 

[kaisermpt]

Bonsoir

Merci pour ta réponse.

Seb

 

[job75]

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.

 

[kaisermpt]

Bonsoir

Merci pour vos réponses. C'est exactement ce que je recherchais. Ça marche parfaitement.

Merci beaucoup

Bonne fin de soirée.

Seb

 

[job75]

Bonjour kaisermpt,

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

Cette macro toute simple permet de l'actualiser automatiquement :

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+