Transfert d'un dictionary dans une listbox ( VBA)

Version imprimable

bonjour
Je reviens vers vous , pour demander votre aide , merci d'avance:
Mon problème se pose comme suite :
j’alimente un "Scripting.Dictionary" a partir d'une variable tableau (ici "TabFBase") de plusieurs colonnes ( après filtrage), je transmet le résultat dans une autre variable tableau ( ici "a") , et puis j'alimente ma Listbox comme dans le bout de code ci-dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim j, i, dico1,a Set dico1 = CreateObject("Scripting.Dictionary") For i = Ubound(TabBase,1) To 2 Step -1 If TabFBase(i, 3) = "Nom" And TabFBase(i, 21) = "Statut" Then dico1(i) = Array(TabFBase(i, 1), TabFBase(i, 2), TabFBase(i, 5), TabFBase(i, 9), TabFBase(i, 11), _ TabFBase(i, 12), TabFBase(i, 7), TabFBase(i, 16), TabFBase(i, 22)) End If Next i If dico1.Count <= 1 Then Exit Sub a = Application.Transpose(Application.Transpose(dico1.items)) Me.CBNTicket.List = a
Lorsque le "Dico1" contient plus de deux enregistrements , pas de problème , mais lorsqu'il contient un seul , la Listbox est vide et je ne reçois aucun message.
merci de votre aide SVP
BN : Lorsque je transmet le résultat directement dans une feuille , sa marche Nickel

26/03/2018, 17h04
boisgontierjacques

Bonjour,

Une piste possible

List attend un Array 2D.

Si n=1 dans le Array Tbl(1 To ncol, 1 To n)
ApplicationTranspose(Tbl) génère un Array à 1 dimension X(1 To ncol)

Boisgontier
26/03/2018, 17h23
omrsmiloud

bonjour jacques et merci de votre réactivité
Y'a t'il une solution pour contourner le .AddItem

Voici une séquence pour alimenter une ListBox sans les lignes vides d'un Array a():
-On ajoute 1 ligne à Tbl() pour qu'il y ait au moins 2 lignes
-On supprime la ligne en trop dans le ListBox avec RemoveItem

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set d = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then d(i) = Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4))
  Next i
  n = d.Count
  If n > 0 Then ' gestion 1 seule ligne dans la BD
    Dim Tbl: Tbl = Application.Transpose(d.items)
    ReDim Preserve Tbl(1 To 4, 1 To n + 1)
    Me.ListBox1.List = Application.Transpose(Tbl)
    Me.ListBox1.RemoveItem n 
  End If
End Sub

Boisgontier

26/03/2018, 18h10
omrsmiloud

bonjour
merci pour l'astuce
cdt
26/03/2018, 18h58
boisgontierjacques

Pour éviter Application.Transpose, on peut utiliser .Column au lieu de .List

Boisgontier