Discussion :

[Biker_45]

Bonjour a tous;

J'essaye de faire un recapitulatif de mon tableau sous forme de listBox avec des filtres automatiques.
J'ai bien la solution mais le code pour une seule listBox est enorme; donc je ne m'imagine pas avec 4 listBox. ( Je vous ai laissé dans le module 2 pour voir ma version de mon code)

Voici mon probleme ( qui est d'ailleurs expliqué sur mon fichier joint)

J'ai quatres ListBox ou chacun a ses filtres automatiques
exemple:
LISTBOX1 :Affichage des colonnes de A à M de la feuille1 ( avec comme critere de filtre en A : i.....jours & en F : d) Les colonnes E ; F; G; H; I K peuvent etre masquées.
LISTBOX2 :Affichage des colonnes de A à M de la feuille1 ( avec comme critere de filtre en A : a.....jours & en F : d) Les colonnes E ; F; G; H; I K peuvent etre masquées.



Etc...;



JE vous remercie par avance de vos reponses

[Daniel.C]

Bonjour,

Pour la listbox1, en réglant la propriété "ColumnCount" à 13 et en réglant la propriété "ColumnWidth" suivant la largeur voulue pour les colonnes, utilise le code suivant pour renseigner la listbox :

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
Private Sub UserForm_Initialize()
    Dim Plage As Range, c As Range
    With Sheets("Feuil1")
        Set Plage = .Range(.[A6], .Cells(.Rows.Count, 13).End(xlUp))
        .AutoFilterMode = False
    End With
    With Me.ListBox1
        Plage.AutoFilter 1, "=i*"
        Plage.AutoFilter 6, "D"
        Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        If Plage.Count > 0 Then
            For Each c In Plage
                .AddItem c.Value
                For i = 1 To 12
                    .List(.ListCount - 1, i) = c.Offset(, i).Value
                Next i
            Next c
        End If
    End With
End Sub

Réplique le code en le modifiant pour les autres listboxes.

[Biker_45]

Bonjour;

Merci pour ta reponse mais apres un essai sur une seule ListBox il me marque une erreur de propriete List.

[Daniel.C]

Au temps pour moi. Il faut définir les 8 colonnes utilies et utiliser le code :

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
Private Sub UserForm_Initialize()
    Dim Plage As Range, c As Range
    With Sheets("Feuil1")
        Set Plage = .Range(.[A6], .Cells(.Rows.Count, 13).End(xlUp))
        .AutoFilterMode = False
    End With
    With Me.ListBox1
        Plage.AutoFilter 1, "=i*"
        Plage.AutoFilter 6, "D"
        Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        If Plage.Count > 0 Then
            For Each c In Plage
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(, 1).Value
                .List(.ListCount - 1, 2) = c.Offset(, 2).Value
                .List(.ListCount - 1, 3) = c.Offset(, 3).Value
                .List(.ListCount - 1, 4) = c.Offset(, 8).Value
                .List(.ListCount - 1, 5) = c.Offset(, 9).Value
                .List(.ListCount - 1, 6) = c.Offset(, 11).Value
                .List(.ListCount - 1, 7) = c.Offset(, 12).Value
            Next c
        End If
    End With
End Sub

[Biker_45]

Bonsoir;


Merci pour votre code.

Mais j'ai pensé a une autre idée : peux etre pas realisable?
Est-ce possible de faire la meme chose mais avec des listview?

Merci

[Daniel.C]

Est-ce possible de faire la meme chose mais avec des listview?

Peut-être. Il faut choisir les outils en fonction de ce que tu veux faire. Or je ne sais pas ce que tu désires. Pourquoi une listbox plutôt qu'une listview ? Pour le moment, je n'ai fait que remplir la boîte. Je ne sais pas même la valeur que tu souhaites récupérer.