[VBA] Sommes des prix associées à des valeurs

**tuta77** · 02/02/2009, 12h11

Bonjour à tous,

J'ai beau avoir passé du temps à rechercher un problème équivalent, je n'arrive pas à m'en sortir.
Je souhaite faire un récapitulatif des sommes correspondant à une même valeur de cellules.

Le probleme est simplifié, le fichier complet à 12 feuilles * 100 lignes.

En supposant que j'ai 3 feuilles (Récap, Feuille A1 et Feuille A2) :
Sur la Feuille A1, colonne A : des valeurs de A1-00-01 jusqu'à A1-99-99
Sur la Feuille A1, colonne B : un prix associé à une valeur
Même principe pour la feuille A2 où A2 remplace A1 dans les valeurs.
A noter qu'il peut y avoir des valeurs en double par feuille.

Exemple Feuille 1:
A1-00-01 --- 10 €
A1-00-01 --- 20 €
A1-00-02 --- 30 €
A1-00-03 --- 40 €

Exemple Feuille 2:
A2-00-01 --- 10 €

Et je cherche à avoir en Feuille Récap :
A1-00-01 --- 30 € (10+20)
A1-00-02 --- 30 €
A1-00-03 --- 40 €
A2-00-01 --- 10 €

J'avais pensé à créer un tableau, et associer :
- les valeurs à la colonne 1 d'un tableau (parcourir les feuillets, chercher les valeurs uniques et les lister à la suite dans la colonne 1 du tableau).
- les prix à la colonne 2 d'un tableau et faire une somme quand une valeur n'est pas unique (prix valeur = prix cellule actuelle + prix précédent)
Est-ce que déjà mon raisonnement est logique ?

Il y a peut être une solution plus simple sans passer par du VBA.

Merci d'avance pour votre aide ou pour toute redirection vers un sujet similaire.

**Godzestla** · 02/02/2009, 12h50

Bonjour,
pour faire tes totaux, rien de tel qu'un tableau croisé dynamique (Pivot table) qui fait cela pour toi en quelques secondes.

Le seul problème qui te reste est que le Pivot tavble ne peut travailler sur plusieurs feuilles de données sources.

je te conseille donc de faire un code qui lit des différentes feuilles et qui copie tout l'un derrière l'autre dans une nouvelle feuille. (ou un nouveau fichier).
Ou tu les copies à la main....

ensuite tu n'as plus qu'a faire un Pivot sur ce récap.