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