XL 2019 Compte Items transpose lignes

[Hoareau]

Bonjour

sur la base de CompteItems de boisgonthier

je voudrais transposer le resultat en lignes au lieu des colonnes
ce qui est fait dans la macro ci-dessous, mais dans l'affichage ce n'est que le premier item et son decompte qui s'affiche dans toutes le cellules

merci

Sub CompteItems_2()

Set Plage = Range("a2", [A3].End(xlToRight))

Plage.Select
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Plage
mondico(c.Value) = mondico(c.Value) + 1
Next c
[A5].Resize(, mondico.Count) = Application.Transpose(mondico.keys)
[A6].Resize(, mondico.Count) = Application.Transpose(mondico.items)

End Sub

 

[Hoareau]

Mes excuses oublié fichier ci-joint

 

[mapomme]

Bonjour @Hoareau,

Comme ceci ? :

Sub CompteItems()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [A3].End(xlToRight)): mondico(c.Value) = mondico(c.Value) + 1: Next c
[C12].Resize(9999, 2).Clear
[C12].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[d12].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
[C12].Resize(mondico.Count, 2).Sort key1:=[C12], order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns
End Sub

Sub CompteItems_2()
Set Plage = Range("a2", [A3].End(xlToRight))
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Plage: mondico(c.Value) = mondico(c.Value) + 1: Next c
[a5].Resize(2, Columns.Count).Clear
[a5].Resize(, mondico.Count) = mondico.keys
[A6].Resize(, mondico.Count) = mondico.items
[a5].Resize(2, mondico.Count).Sort key1:=[a5], order1:=xlAscending, Header:=xlNo, Orientation:=xlSortRows
End Sub

 

[chris]

Bonjour à tous

Une solution PowerQuery (intégré à Excel 2019)

 

[Hoareau]

Merci fonctionne parfaitement
Je cherchais à transposer des données qui ne devaient pas l'être

Powerquery connait pas, semble intéressant pour collecter des données de différentes sources

 

[chris]

RE

Powerquery connait pas, semble intéressant pour collecter des données de différentes sources

Entre autres mais c'est un vrai couteau suisse.

 

[Hoareau]

j'ai regardé sommairement les capacités , pour celui qui en a l'utilité