Utilisation de dictionary

[Chris24]

Bonjour,

Je sèche lamentablement sur le fichier exemple de JB (DictionarySousTotal).

J'essaie de transposer le résultat de la liste triée dans un listbox mais mes neurones fatigués n'arrivent plus à rien.

Si une âme charitable veux bien guider mes pas .....

Merci et bonne soirée

 

[Dranreb]

Bonsoir.
Cette instruction fonctionne :

Me.ListBox1.List = WorksheetFunction.Transpose(Array(mondico.keys, mondico.items))

Du moins sans tri…

 

[Chris24]

Mais c'est bien sur, c'est le worksheet function qui me manquait.

Pour le tri affaire à suivre


Merci

 

[mapomme]

Bonsoir à tous,

Autre méthode avec tri du résultat et sans transpose qui au-delà d'un certain nombre d'éléments ne fonctionne plus.

Private Sub CommandButton1_Click()
Dim i&, T(), dico, c As Range, ech As Boolean, aux

   Set dico = CreateObject("Scripting.Dictionary")
   For Each c In Range("a2", [a65000].End(xlUp))
      dico(c.Value) = dico(c.Value) + c.Offset(, 1).Value
   Next c

   ReDim T(0 To dico.Count - 1, 0 To 1)
   For i = 0 To dico.Count - 1
      T(i, 0) = dico.keys()(i)
      T(i, 1) = dico.items()(i)
   Next i

   Do
      ech = False
      For i = 0 To dico.Count - 2
         If T(i, 0) > T(i + 1, 0) Then
            aux = T(i, 0): T(i, 0) = T(i + 1, 0): T(i + 1, 0) = aux
            aux = T(i, 1): T(i, 1) = T(i + 1, 1): T(i + 1, 1) = aux
            ech = True
         End If
      Next i
   Loop While ech
   ListBox1.List = T
End Sub

 

[Chris24]

Je suis comblé

Merci à vous deux

 

[Dranreb]

Moi je me sers de mon artillerie lourde de service qui offre des codes d'application courts.
(beaucoup moins lourde toutefois que toute la programmation à laquelle vous n'avez pas accès)

 

[gosselien]

ReDim T(0 To dico.Count - 1, 0 To 1)

je pense qu'il ne faut pas mettre count-1, car dans l'exemple il manque alors une personne (martin en l'occurence)

donc ReDim T(0 To dico.Count , 0 To 1)
P.

 

[Chris24]

@Danreb pour de l'artillerie lourde c'est effectivement du lourd
@ gosselin même avec count-1 martin n'est pas parti avec son âne

Un grand merci à vous tous, je n'ai que l’embarras du choix et le choix de l’embarras


Bonne soirée

 

[mapomme]

Bonjour,

je pense qu'il ne faut pas mettre count-1, car dans l'exemple il manque alors une personne (martin en l'occurence)

donc ReDim T(0 To dico.Count , 0 To 1)
P.

Les indices du tableau T débutent à zéro et non à un. C'est l'explication du dico.Count-1.
Dans l'intervalle [0, dico.Count-1], il y a bien dico.count éléments.