Problème de filtrage de données avec listbox

J'ai créé un userform (UserFormRequeteGestion) comprenant deux listbox de filtre de données devant apparaître dans une grande listbox intitulée ListBugs. Malheureusement je n'arrive pas à afficher l'ensemble des données - je dois avoir une erreur dans mon code - malgré plusieurs heures de recherche je n'arrive pas à trouver. Vous pouvez télécharger mon fichier ici - Merci d'avance pour votre aide.

Bonsoir,

Je ne vois pas de code .... (voir ma signature) , ne nous laisse pas faire tous le travail essai de nous macher le travail en nous montrant seulement la partie du code qui rempli tes userforms..

Voici le code - néanmoins je pense plus clair si le formulaire ad'hoc est ouvert.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Dim Critere As String
Dim Col As Byte
'Dim Cell As Range
'Dim r As Range
Dim Item As Integer
Dim i As Integer
Dim tabT() As String
Dim W As Worksheet
Set W = Worksheets(1)
 'If ListDonnees2.Text = "" Then
  '  MsgBox "Aucune donnée saisie, veuillez faire un autre choix", vbCritical, "GestFaillites 1.00"
   ' Me.Label2.Caption = "Néant"
  ' Exit Sub
 'End If
  With Sheets("Données")
              tabtemp = .Range("A2:X" & .Range("A65536").End(xlUp).Row).Value
 For L = 1 To UBound(tabtemp, 1)
             tabtemp(L, UBound(tabtemp, 2)) = 2 + L
        Next
  NbrCol = UBound(tabtemp, 2) - 1
  End With
Critere = Me.ListDonnees2.Value
Col = CInt(Me.ListDonnees1.Column(1, Me.ListDonnees1.ListIndex))
       Me.ListBugs.Clear
 
      ReDim Preserve tabT(2, i)
  For Item = 1 To UBound(tabtemp, 1)
   If tabtemp(Item, Col) = Critere Then
 
       With Me.ListBugs
 
            .ColumnCount = 6
            .ColumnWidths = "50;50;350;150;130"
            .AddItem tabtemp(Item, 1)
            .Column(1, .ListCount - 1) = tabtemp(Item, 2)
            .Column(2, .ListCount - 1) = tabtemp(Item, 2)
            .Column(3, .ListCount - 1) = tabtemp(Item, 2)
            .Column(2, .ListCount - 1) = tabtemp(Item, 2)
            .Column(3, .ListCount - 1) = tabtemp(Item, UBound(tabtemp, 2))
 
 
    End With
    End If
 
 
 
 
 
  Next
        Me.Label2.Caption = Me.ListBugs.ListCount
 
 
 
End Sub

il s'agit du code d'application du filtre