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 : Sélectionner tout - Visualiser dans une fenêtre à part
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