ListBox multi colonne

Version imprimable

Bonjour,
J'aimerai créer un genre de filtre à la Excel dans mon UserForm. Or pour l'instant j'ai un problème d'utilisation du ListBox multicolonne. Voici mon code:

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
 
Private Sub RemplissageCbTri(numColonne As Integer, cbTri As ComboBox)
    Dim szTmp1 As Variant
    Dim Unique As New Collection
    Dim szTmp2 As Variant
    Dim i As Integer
 
    i = Me.lstContrats.ColumnCount  'récupérer le nombre de ligne dans la ListBox
 
    On Error Resume Next
 
    For Each szTmp1 In Me.lstContrats   'boucle sur les éléments de la colonne
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
        Unique.Add szTmp1, CStr(szTmp1)
    Next szTmp1
 
    On Error GoTo 0
 
    For Each szTmp2 In Unique   'Boucle sur le contenu de la collection pour alimenter la ComboBox
        cbTri.AddItem szTmp2
    Next szTmp2
End Sub

Donc on rempli pour une colonne donnée de la ListBox, un ComboBox avec les éléments (sans doublon bien sur)

Mais ça me parait pas bon. Des idés?

06/05/2012, 19h47
kiki29

Salut, voir ici
06/05/2012, 19h57
Invité

Merci mais justement je me suis inspiré du dernier exemple et je l'ai adapté à mon problème (dans l'exemple les données sont sur la feuille Excel alors que moi ils sont au sein de mon UserForm).

Je reformule mon besoin:
Ce qui plante c'est la boucle

Code:

For Each szTmp1 In Me.lstContrats.Column

Le In devrait s'appliquer sur la colonne passée en paramètre, mais je sais pas comment sélectionner une colonne du ListBox.
07/05/2012, 07h58
SfJ5Rpw8

Bonjour,
Toujours pas clair le besoin a quoi doit servir cette boucle ?
07/05/2012, 09h17
Invité

En fait j'ai un listbox multi colonne qui contient différentes données. J'aimerai au dessus de chaque colonne mettre une combobox qui contiendrai tout les valeurs de la colonne en dessous sans doublon. Ce qui permettrai par la suite, à l'utilisateur d'appliquer un filtre en affichant dans le listbox multicolonne que les lignes aillant la même valeur que celle sélectionnée dans la combobox de la colonne. Bref un système de filtre de tableau comme on en voit partout.

Donc ma boucle devrait me servir à extraire toute les valeurs contenue dans la colonne sur laquelle on travail. Et ajouter sans doublon, ces valeurs dans le combobox.

Ou peut-être ça serai mieux de faire appel au fonction de filtre d'Excel, si c'est possible, vu que mon tableau est présent sur une feuille Excel.
09/05/2012, 10h15
Invité

J'ai réussi à trouver une solution à mon problème en remplacant le For Each par un simple For qui parcours les différentes colonnes.

Mais j'ai une autre question:
Comment on fait pour supprimer (ou plutôt masquer) des ligne de mon tableau de ListBox multicolonne?

Donc c'est toujours pour le même objectif de réaliser un système de filtre pour afficher que les colonne contenant l'élément sur lequel on a cliqué dans la ComboBox.