Synthèse de données

Bonjour à tous,
Je me permets de poster ce message car après deux jours de recherches je ne trouve pas de solution à mon problème.
J'ai un fichier excel qui me sert de base de données. Dans ce fichier j'ai plusieurs feuilles, chaque feuille représente une machine.
Dans la feuille BILAN, je voudrais faire une synthèse "de date à date". L'utilisateur saisie la plage de date souhaitée pour avoir une synthèse des données de la machine (LC101 ou LC104 ou LC106).
Par exemple dans la feuille BILAN, je rentre mes dates et en cliquant sur bouton "LC101", excel va sur feuille "LC101" pour la plage de date rentrée excel synthétise les données trouvées pour chaque équipe (A, B ou C). Pour A, il renvoie la moyenne des taux de perf(colonne G), des taux de dispo(colonne H), des TRS(colonne J). Ainsi de suite pour les autres machines.

Je vous remercie pour votre aide.

Bonjour,

Je te suggère l'utilisation d'une feuille intermédiaire qui te permettra de filtrer tes listes machines par date de début, date de fin et équipe ce qui constitue tes 3 critères. Je t'ai ajouté une feuille filtre qui pourrait répondre à tes besoins.

Note que pour faire une extraction vers cette feuille autre que la feuille source (LC101, pare exemple) il faut être positionné sur cette feuille pour appeler la commande de filtre avancé. Je t'ai intégré une copie de la fenêtre de filtre avancé avec un exemple depuis la feuille LC101.

Après pour le code VBA, je ne sais pas quel est ton niveau d'utilisation... mais en gros 3 temps pour un résultat complet :

1/ saisie des critères en B6, C6 et D6

2/ faire l'extraction en faisant varier la feuille base de données (Plages), les zones de critères et copier dans ne varient pas.

3/ recopier le résultat d'extraction (les moyennes) dans ta feuille Bilan.

Bon courage !!! ;)

Pièce jointe 200603

Bonjour ZX12R, je te remercie pour ta réponse.

La partie macro je peux la faire mais le filtre avancé ne marche pas et je ne voudrais pas que l'utilisateur soit obligé de mettre en place à chaque fois un filtre avancé.

Bonjour,

Voilà ce que tu aurai pu obtenir en enregistrant une macro de filtre avancé. Bien sur il faudra adapter le code dans ta boucle de parcours des différentes machines...

Code:

---

1 2	Sheets("LC101").Range("B3:J200").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("B5:D6"), CopyToRange:=Range("B10:D10"), Unique:=False

---

Cordialement.
Bruno