Regroupement de lignes

[pauldmsi]

Bonjour, je ne suis pas vraiment doué avec excel je vous explique donc mon problème

je développe une application windev basé sur des données EXCEL. mon fichier est composé ainsi:

qte article
libelle article

sur ce fichier plusieurs articles peuvent être renseignés par exemple

2 coca
1 pizza
2 coca
1 cafe
2 pizza

je souhaiterais regrouper les lignes de manière à avoir :

4 coca
3 pizza
1 cafe

Merci de votre aide

 

[laetitia90]

Re : Regroupement de lignes

bonjour pauldmsi 🙂
par macro ??

Sub es()
 Dim t(), i As Long, m As Object
 Set m = CreateObject("Scripting.Dictionary")
 t = Range("a2:b" & Cells(Rows.Count, 2).End(3).Row)
 Range("a2:b" & Cells(Rows.Count, 2).End(3).Row).ClearContents
 For i = 1 To UBound(t)
 m(t(i, 2)) = m(t(i, 2)) + t(i, 1)
 Next i
 [b2].Resize(m.Count, 1) = Application.Transpose(m.keys)
 [a2].Resize(m.Count, 1) = Application.Transpose(m.items)
 [a2:b10000].Sort Key1:=[b2], Order1:=xlAscending, Header:=xlGuess 'dans l'ordre alpha..
End Sub

 

[Modeste geedee]

Re : Regroupement de lignes

Bonsour®

je souhaiterais regrouper les lignes de manière à avoir :

4 coca
3 pizza
1 cafe

et en regroupant comme ceci ??? :
coca 4
pizza 3
cafe 1

pas besoin de formules, ni macro ...🙄
un simple Tableau Croisé Dynamique :

 

[pauldmsi]

Re : Regroupement de lignes

Merci à vous je vais tester