Tri et sous total en macro

[behremy]

Bonjour,

Je débute en macro, merci de donc pour votre compréhension et pour votre aide.

Mon cas est le listing par produit de ventes, contenant le prix et la quantité.
Donc de la forme:

Product Id / Price / Qty
----------------------------------
Prod01 2 3
Prod01 3 2
Prod01 2 5
Prod02 3 2
Prod02 3 1

Mon objectif est de sommer les quantités des produits ayant été vendus au même prix.
Donc de la forme:

Product Id / Price / Qty
----------------------------------
Prod01 2 8
Prod01 3 2
Prod02 3 3

J'ai donc pensé à trier, puis faire des sous totaux sur la colonne 3 avec comme clé la colonne 2.

Le tri donne donc:

Product Id / Price / Qty
----------------------------------
Prod01 2 3
Prod01 2 5
Prod01 3 2
Prod02 3 2
Prod02 3 1

""""""""""" mon code de tri
SortRecord Macro

'



'

Cells.Select

ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear

ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range("A2:A8"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range("B2:B8"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort

.SetRange Range("A1:C8")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

""""""""""
Mais mon sous total sur la colonne ajoute la ligne 3 et 4 qui correspondent à 2 produits différents et je ne vois pas comment les différencier.


"""""""""""" mon code de sous totaux
Selection.SubTotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3), Replace:=True, _

PageBreaks:=False, SummaryBelowData:=True




"""""""""""""""""""""""""""""""

Merci pour vos idées,
Rem

 

[jeanpierre]

Re : Tri et sous total en macro

Bonjour behremy,

Bienvenue sur le forum,

Y-a-t'il besoin d'une macro pour faire ce que tu souhaites ?

Avec un fichier exemple (pour ne pas avoir besoin de le recréer), une fonction comme SOMMEPROD() doit faire l'affaire. C'est bien plus simple et plus rapide souvent.

A te lire avec un exemple représentatif de ton fichier (moins de 48.8 Ko, si compressé, tu mets 5 à 8 fois plus de données). En bas dans Gérer les pièces (en mode avancé si besoin)

Jean-Pierre

 

[behremy]

Re : Tri et sous total en macro

Bonsoir Jean-Pierre,

Cela me semble être une bonne idée mais je ne vois pas comment utiliser une sommeprod dans ce cas.

Je ne te joins donc pas ma table vu qu'il faudrait tout reprendre.

Pourrais-tu me joindre un exemple qui permettrait de résoudre la somme des quantités par prix par produit ?

Ce serait très aimable à toi, et déjà merci pour ta réponse rapide.

Cdt,
Remy

 

[jeanpierre]

Re : Tri et sous total en macro

Re,

Pas besoin de toute ta table, une cinquantaine le ligne peut suffire (pas de nom ni numéro de téléphone, par exemple, le reste les chiffres sont toujours anonymes, cela peut être n'importe quoi, des milliers de dollars, des carottes....).

Pour travailler, il faut voir la structure du fichier, la vraie...

A te lire.

Jean-Pierre

 

[behremy]

Re : Tri et sous total en macro

Très bonne idée Jean-Pierre,

Voici mon cas de test. Je voudrais, idéalement avec une macro, faire les sommes des quantités des mêmes produits ayant les mêmes prix et copier ses résultats dans la feuille "Result".

Merci infiniment pour ton aide,

Remy

 

[Dull]

Re : Tri et sous total en macro

Salut behremy, JP🙂, le Forum

un essai en pièce jointe avec des plages nommées

Bonne Journée

 

[behremy]

Re : Tri et sous total en macro

Bonjour Dull,

Merci pour ton aide, mais ce n'est malheureusement pas exactement ce que je voulais obtenir.

Tu as fait la somme des prix et la somme des quantités par produit. (ceci dit j'ai appris un truc au passage).

Mais dans mon cas ce dont j'ai besoin c'est la quantité (donc colonne 3) du produit 1 avec le prix 1, puis la quantité du produit 1 ayant le prix 2... en passant par tous les produits et tous leurs prix correspondants.
Je pense que les 2 tableaux de mon premier message l'illustre bien.

Est-ce plus clair ?

Merci encore pour votre aide,
Remy