Créer fichier Recap de commandes

Version imprimable

2 pièce(s) jointe(s)

Bonjour,
Je reçois d'un client central une liste XL de commandes de plusieurs clients dans une feuille.
Il m’envoie un simili tableau croisé avec la liste des produits en ligne, les clients en colonne et leur quantité en intersection.

colonneA colonneB colonneC colonneD ... colonneBS

A1: PRODUITS B1: NomClient1 C1: NomClient2 D1: NomClient3 ... BS1: NomClient70

A2: nomProduit1 40 ...

A3: nomProduit2 2,5 10 ...

A4: nomProduit3 20 10 ... 10

...

A120: Produit121 60 ... 10

L'idée, je souhaiterai créer dans un autre fichier XL nommé Récapitulatif, un onglet pour la liste de tous les produits (somme de tous les clients) et des onglets par Nom client avec la liste de leurs produits et quantités
exemple:
Onglet1=nomClient1 tronqué à10car.

A B

Produit1 40

Produit3 20

Onglet2=nomClient2 tronqué à10car.

A B

Produit2 2,5

Produit3 10

... etc jusqu'au dernier nomClient70

il faudrait ouvrir le fichier Recap, lancer une macro qui ouvre une fenêtre pour aller chercher le fichier source liste des commandes et exécute la répartition pour chaque client, ferme le fichier liste des commandes, et laisse ouvert le fichier Recap

N'y connaissant rien en Macro VB, je pense que c'est possible, mais je ne sais pas faire
Si cela n'est pas clair, j'ai mis des fichiers exemples en pièce jointe
Un Grand Merci à vous pour votre aide

22/02/2021, 09h21
Audeo

Merci Winjerome pour ta conversion en tableau, je ne savais pas comment faire dans mon message... ;)

colonneA	colonneB	colonneC	colonneD	...	colonneBS
A1: PRODUITS	B1: NomClient1	C1: NomClient2	D1: NomClient3	...	BS1: NomClient70
A2: nomProduit1	40			...
A3: nomProduit2		2,5	10	...
A4: nomProduit3	20	10		...	10
...
A120: Produit121			60	...	10

A	B
Produit1	40
Produit3	20

A	B
Produit2	2,5
Produit3	10

1 pièce(s) jointe(s)

bonjour
pour faire bouger cette discussion et pour le récap par produit tester ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub recapp()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Commandes")
Set F2 = Sheets("recapproduit")
F2.Cells.ClearContents
Dim DernLigne As Long
Dim DernColonne As Long
DernLigne = F1.Range("A" & Rows.Count).End(xlUp).Row
Dim i As Long
DernColonne = F1.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
On Error Resume Next
Set d = CreateObject("Scripting.Dictionary")
    TblBD = F1.Range(F1.Cells(2, 1), F1.Cells(DernLigne, DernColonne))
    For i = 1 To UBound(TblBD)
    clé = TblBD(i, 1)
    For C = 2 To DernColonne
    d(clé) = d(clé) + TblBD(i, C)
    Next C
    Next i
 F2.Cells(1, 1) = "Code Produit"
 F2.Cells(1, 2) = "Quantité"
 F2.Range("A2").Resize(d.Count) = Application.Transpose(d.Keys)
 F2.Range("B2").Resize(d.Count) = Application.Transpose(d.items)
Application.ScreenUpdating = True
End Sub

22/02/2021, 14h54
Audeo

Bonjour,
Merci pour votre aide, mais ce n'est pas tout a fait ça.
il faudrait que le recap soit dans un autre fichier que celui des commandes avec :
un onglet TOTAL pour le total par produit tout client confondus, avec entête du mois en cours des commandes
puis ensuite un onglet par client avec ses produits et quantités, avec entête du mois en cours des commandes