Discussion :

[crissud]

Bonjour

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

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

[issoram]

Bonjour,

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

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

[Daniel.C]

Bonjour,

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

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

[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