Discussion :

[Toutes les C]

Bonjour à tous et toutes

Je sèche depuis ce matin sur le remplissage d'une listBox de 5 colonnes à partir d'un tableau excel sur lequel est appliqué un filtre

Je filtre le tableau excel à partir de la ligne ci-dessous

Code :

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

1
2
'On filtre la liste des matériels selon le local retenu
    Workbooks("tlc_prj.xls").Worksheets("Lmater").Range("a3:is" & Dernier_Mater).AutoFilter Field:=1, Criteria1:=Critere_Local

J'initialise la ListBox avec le code suivant, mais en l'état toutes les lignes du tableau apparaissent. L'essai d'appliquer ".SpecialCells(xlCellTypeVisible)" ne fonctionne pas

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
'Nombre de colonnes dans la ListBox
ListBoxMater2.ColumnCount = 5
''Largeur des colonnes de la ListBox
ListBoxMater2.ColumnWidths = "590;60;15;15;15"
'
 
For i = 4 To Dernier_Mater
'   Ajoute une ligne et insère la première donnée dans la colonne de gauche
    ListBoxMater2.AddItem Workbooks("tlc_prj.xls").Worksheets("Lmater").Range("B" & i) '.SpecialCells(xlCellTypeVisible)
'   Ajoute les deux autres données dans les colonnes de droite
   ListBoxMater2.List(ListBoxMater2.ListCount - 1, 1) = Workbooks("tlc_prj.xls").Worksheets("Lmater").Range("c" & i)
   ListBoxMater2.List(ListBoxMater2.ListCount - 1, 2) = Workbooks("tlc_prj.xls").Worksheets("Lmater").Range("ca" & i)
   ListBoxMater2.List(ListBoxMater2.ListCount - 1, 3) = Workbooks("tlc_prj.xls").Worksheets("Lmater").Range("cb" & i)
   ListBoxMater2.List(ListBoxMater2.ListCount - 1, 4) = Workbooks("tlc_prj.xls").Worksheets("Lmater").Range("cc" & i)
Next i

Si vous avez une piste pour me sortir de ce faux pas, merci d'avance

Daniel

[anasecu]

Bonjour,

Je sèche depuis ce matin sur le remplissage d'une listBox de 5 colonnes à partir d'un tableau excel sur lequel est appliqué un filtre

Je te propose ceci qui devrait fonctionner et dont je t'ai un peu simplifié l'écriture

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
Dim wl As Worksheet
Set wl = Workbooks("tlc_prj.xls").Worksheets("Lmater")
With ListBoxMater2
'Nombre de colonnes dans la ListBox
    .ColumnCount = 5
''Largeur des colonnes de la ListBox
    .ColumnWidths = "590;60;15;15;15"
'
    For i = 4 To Dernier_Mater
        If Not Rows(i).Hidden Then
        '   Ajoute une ligne et insère la première donnée dans la colonne de gauche
            .AddItem wl.Range("B" & i) 
        '   Ajoute les deux autres données dans les colonnes de droite
           .List(.ListCount - 1, 1) = wl.Range("c" & i)
           .List(.ListCount - 1, 2) = wl.Range("ca" & i)
           .List(.ListCount - 1, 3) = wl.Range("cb" & i)
           .List(.ListCount - 1, 4) = wl.Range("cc" & i)
        End If
    Next i
End With
Set wl = Nothing

[Toutes les C]

Merci beaucoup Anasecu !