Discussion :

[nic79]

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.

[JackOuYA]

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..

[nic79]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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