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:
Donc on rempli pour une colonne donnée de la ListBox, un ComboBox avec les éléments (sans doublon bien sur)
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
Mais ça me parait pas bon. Des idés?
Partager