Ressortir des données uniques d'une liste de course

**Bruno_C** · 10/07/2017, 08h20

Bonjour

Débutant en VBA, je dois réaliser l'exercice suivant: réaliser une liste de course en automatique, en fonction des recettes choisies pour la semaine

Par exemple j'ai des recettes (dans la colonne A on y trouve le poids en gramme et dans la colonne B le nom de l'ingrédient) défini comme:

RECETTE A
100 tomate
500 courgette
300 vin blanc
400 beurre

RECETTE B
300 tomate
600 beurre

RECETTE C
100 farine
500 aubergine
100 tomate

L'objectif 1 est de chercher le nom des recettes dans les différents onglets de mon fichier et d'en stocker les ingrédients => çà c'est OK

Ensuite dans un onglet "Liste_Course_Temp" de faire la liste exhaustive de tous tes ingrédients de toutes les recettes c'est à dire dans mon exemple ci-dessus:

100 tomate
500 courgette
300 vin blanc
400 beurre
300 tomate
600 beurre
100 farine
500 aubergine
100 tomate

=> çà j'y suis arrivé aussi

le problème est que dans un onglet "Liste_Course_Definitive" je dois faire une liste pour qu'un ingrédient y soit unique et son nombre de grammes cumulé, dans l'exemple ci-dessus on voit que j'ai 3 fois besoin de tomate, 100g+300g+100g=500 g de tomate, idem pour le beurre qu'on a deux fois

je dois donc avoir le résultat

500 tomate
500 courgette
300 vin blanc
1000 beurre
100 farine
500 aubergine

Question : comment puis je faire svp ? sachant que je suis novice et que nous n'avons pas encore vu les dictionnaires qui auraient pu aider, je dois faire çà "simplement" avec des boucles, tableaux éventuellement etc

Merci pour votre aide

**eriiic** · 10/07/2017, 08h30

Bonjour,

tu devrais écrire tes ingrédients sur 2 colonnes : Qté, Ingrédient.
Faire les totaux avec un tableau croisé dynamique, et dans ta macro tu n'as que le rafraichissement du TCD à mettre.
eric