Discussion :

[Invité]

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 :

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