Discussion :

[Audeo]

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

[Audeo]

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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