XL 2010 VBA regroupement de données par colonne

M12

XLDnaute Accro

• 20 Juillet 2017

• #2

Bonjour

Avec un TCD

 

Pièces jointes

• Exemple regroup1.xlsx

  14.2 KB · Affichages: 39

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2017

• #3

Bonjour.
Cette procédure le fait :

VB:

Option Explicit

Sub Regroup()
Dim TS(), Fab As SsGr, Opé As SsGr, Dat As SsGr, LS&
ReDim TS(1 To Feuil1.UsedRange.Rows.Count, 1 To 5)
For Each Fab In Gigogne(Feuil1.[A5:E5], 3, 4, 2)
   For Each Opé In Fab.Co
      For Each Dat In Opé.Co
         LS = LS + 1
         TS(LS, 1) = Dat.Co(1)(1)
         TS(LS, 2) = Dat.Id
         TS(LS, 3) = Fab.Id
         TS(LS, 4) = Opé.Id
         TS(LS, 5) = Dat.Somme(5): Next Dat, Opé, Fab
Feuil1.[I5].Resize(UBound(TS, 1), 5).Value = TS
End Sub

Du moins après installation de GigIdx dont référence cochée pour le classeur d'application.

 

Pièces jointes

• GigIdx.xlsm

  79.5 KB · Affichages: 51

Dernière édition: 20 Juillet 2017

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 20 Juillet 2017

• #4

Bonjour,

une manière de faire ..

P.

 

Pièces jointes

• Exemple regroup1.xlsm

  23.8 KB · Affichages: 80

Vote positif 0 Vote négatif

C

cseb19

XLDnaute Nouveau

• 21 Juillet 2017

• #5

Merci à tous les 3 pour vos réponses. A priori, je pars sur la solution de gosselin. Je serais bien parti sur un TCD mais le problème c'est que je dois dans un fichier principale concaténer plusieurs fichiers excel.

 

Vote positif 0 Vote négatif

C

cseb19

XLDnaute Nouveau

• 21 Juillet 2017

• #6

Gosselien, après avoir regardé ta macro, je n'arrive pas à voir comment tu fais le regroupement.
je vois bien l'endroit ou tu créer ta base avec les / mais pas celle ou tu regrouper
S'agit til de la fonction Textcolumns ?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 21 Juillet 2017

• #7

Bonjour,

j'utilise un dictionnaire qui exclu les doublons; pour ça il faut créer une clé unique , ici c'est depuis un tableau (A) pour plus de rapidité et la clé est la concaténation des 4 premières colonne sur 5. Le 5e, elle , est totalisée (Qté).
Donc si 2 lignes sont identiques , la clé n'en retiendra qu'une mais totalisera la "qté".
Le tout est mis ensemble avec des "/" ça aurait pû être des "$" ou autre signe.
Ce ci arrive en un bloc en P5 qu'il faut splitter en P-Q-R-S.
Ensuite il faut coller les différentes totaux en T5 et plus bas?
La ligne "Ws1.[P5 : P1000].TextToColumns" pourrait être écrite d'une autre manière (avec une boucle) mais c'est pareil. Ici ça correspond au menu "données/convertir"
Voilà

P.

 

Dernière édition: 21 Juillet 2017

Vote positif 0 Vote négatif

C

cseb19

XLDnaute Nouveau

• 21 Juillet 2017

• #8

Merci pour ces précisions

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juillet 2017

• #9

Bonjour.

cseb19 à dit:

mais le problème c'est que je dois dans un fichier principale concaténer plusieurs fichiers excel.

Cliquez pour agrandir...

La fourniture GigIdx est équipée de procédures permettant de concaténer des tableaux de diverses sources. La fonction Gigogne accepte, comme 1er paramètre, un tableau résultant d'une telle concaténation.

 

Vote positif 0 Vote négatif

C

cseb19

XLDnaute Nouveau

• 21 Juillet 2017

• #10

Ok Dranreb,
je vais regarder cette solution aussi
Merci à vous en tout cas

 

Vote positif 0 Vote négatif