Afficher des donnees filtrees dans listbox

[HESAMI]

Bonjour
Tout d'abord je voulais dire que je trouve ce site vraiment super et je n'arrête pas de le conseiller.

Débutante en VBA
Cela fait plusieurs jours que je tourne en rond et impossible de faire ce que je veux

je voudrais qu'à l'aide d'un USERFORM
Lorsque que je filtre des données à l'aide d'une combobox.
Les données affichées dans une liste box soit celles qui sont filtrées.

Je pense que je n'utilise pas correctement propriétés des Listbox.

 

[Guest]

Re : Afficher des donnees filtrees dans listbox

Bonjour Hesami,

Voici un code pour afficher que les valeurs de la colonne F dont les lignes sont visibles:

Private Sub AfficherLignesVisibles()
    Dim R As Range
    ListBox1.Clear
    'Boucle sur toutes les lignes visibles dans la plage utilisée de la feuille
    For Each R In Sheets("essai").UsedRange.SpecialCells(xlCellTypeVisible).Rows
        If R.Row > 1 Then ListBox1.AddItem R.Cells(1, 6)
    Next R
End Sub

A appeler dans UserForm_Initialize et dans

Private Sub ComboBox1_change()
If ComboBox1.Value <> "" Then 
Selection.AutoFilter field:=1, Criteria1:=ComboBox1.Text
AfficherLignesVisibles
end IF
End Sub

A bientôt

 

[HESAMI]

Re : Afficher des donnees filtrees dans listbox

Bonjour HASCO

Super merci de ta réponse.