Filtrer une listbox dans Userform

Version imprimable

Bonjour

J'ai un code fonctionnel pour afficher dans une listbox dans une Userform.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub UserForm_Activate() ' -- Identification des variables Dim Ws As Worksheet Dim rg As Range, Tb() ' -- Initialisation des variables Set Ws = ThisWorkbook.Sheets("T_Compte") 'Nom de l'onglet contenant nos données With Ws Tb = .Range("B2:C" & .Range("A" & .Rows.Count).End(xlUp).Row) Me.ListBox1.List = Tb ListBox1.ColumnCount = 3 ListBox1.Font.Size = 8.5 ListBox1.ColumnWidths = "30,45,100" End With End Sub
Je cherche depuis un moment comment afficher dans la ListBox1
seulement les données dans la colonne A dont la valeur est 'Oui'

J'ai déjà tenté plusieurs approche mais sans trouver le résultat espéré
pourriez vous m'aider à aboutir à mon code

merci d'avance
Bonne fin d'année à tous

Bonjour,

Il te suffit de boucler sur ton tableau et de remplir ta listeBox avec les valeurs désirées.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Exemple()
 
    Dim Tb As Variant
    Dim i As Long, j As Long
 
    Tb = Feuil1.Range("A2:C" & Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row).Value
 
    j = 0
    For i = LBound(Tb, 1) To UBound(Tb, 1)
        If Tb(i, 1) = "oui" Then              'filtre les éléments de la colonne A
            Me.ListBox1.AddItem Tb(i, 3), j  'ajoute les éléments de la colonne C
            j = j + 1
        End If
    Next i
 
End Sub

Bonjour,

Pour récupérer les colonnes B et C :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Activate()
    Dim Tb
    Tb = Sheets("T_Compte").Range("A2:C" & Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row)
    With Me.ListBox1
        .ColumnCount = 3
        .Font.Size = 8.5
        .ColumnWidths = "30;45;100"
        For i = LBound(Tb, 1) To UBound(Tb, 1)
            If Tb(i, 1) = "oui" Then
                .AddItem Tb(i, 2)
                .List(.ListCount - 1, 1) = Tb(i, 3)
                j = j + 1
            End If
        Next i
    End With
End Sub

Pourquoi définir 3 colonnes si tu n'en utilises que deux ?

29/12/2013, 12h22
crissud

Merci à vous deux.

@Daniel J'avais utilisé 3 colonnes juste pour tester, j'ai ramené à 2 à présent puis ce çà marche

bon réveillon
Christian