AutoFilter sur une listeBox

[taratata]

Bonjour,

Dans un UserForm, j'ai une ListBox ayant comme RowSource un tableau structuré.
Je cherche à afficher dans cette ListBox le résultat d'un filtre choisi par l’intermédiaire d'un Combox.

J'ai réussi à poser le filtre du ComBox sur le Tableau structuré (cela fonctionne bien).
Malgré tous, la ListBox affiche toujours le contenu total du tableau structuré.

L'objet Listbox ne contient pas l'information RowSource (C'est dû à la configuration du MutliSelect)
Elle est donnée dans

Private Sub UserForm_Initialize()

' --------  Le contrôle ListBox doit être configurer  -------

' - MultiSelect = fmMultiSelectMulti
' - ColumnCount
' - Columnwidths

' -------  RowSource doit être configurer ci-dessous  -------

    ' Déclaration du tableau structuté
    tablo = [Tab_BNIC]
    ' Lien RowSource
    ListBox_BNIC.List = tablo
    
    ....

Existe t-il une possibilité de poser un filtrage directement du la ListBox?

le but étant d'afficher en temps réel le résultat du filtre sélectionné depuis le combox.
Le contenu du Combox vient de la colonne 3 du tableau structuré

merci pour vos idées ...

 

[Compte Supprimé 979]

Bonjour,

Tu es obligé de faire une boucle sur tes enregistrements pour filtrer ceux que tu veux voir
Ca ne se fait pas tout seul

 

[taratata]

d'accord, comment filtrer directement sur la listebox?

 

[ChTi160]

Bonsoir taratata
Bonsoir le Fil（bruno）,le Forum
filtrer directement ....sur la listebox
peut etre avec une boucle sur ce qui ce trouve dans ta listbox
ex

 for l =  listbox1.listcount-1 to 0 step -1
if listbox1.list（l,1）<> xxxx then
listbox1.remove（l）
End if
Next l

ou recuperer dans un tableau temporaire les lignes resultat du filtre....
puis de remplir la listbox avec ce tableau.
non teste .
Bonne soiree
jean marie

 

[BOISGONTIER]

Bonsoir,

Exemples: http://boisgontierjacques.free.fr/pages_site/FiltreAuto.htm#TransListBox

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreListbox.xls

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreListbox2.xls

http://boisgontierjacques.free.fr/fichiers/Filtre/FilterListBox.xlsm

http://boisgontierjacques.free.fr/fichiers/Formulaire/FiltreZoneFiltreeListBox.xls

Private Sub UserForm_Initialize()
  Sheets.Add
  Sheets("BD").Range("_FilterDataBase").Offset(1).SpecialCells(xlCellTypeVisible).Copy [A1]
  Me.ListBox1.List = [A1].CurrentRegion.Value
  Application.DisplayAlerts = False
  ActiveSheet.Delete
  For i = 1 To 3
    Me("label" & i) = Sheets("bd").Cells(1, i)
  Next i
End Sub

Boisgontier

 

[taratata]

merci pour ces liens que j'ai parcouru et testé
j'ai essayé d'adapter sans succès.
_FilterDataBase pose problème.


depuis 3 semaines, je me suis mis à excel vba, un jeune débutant

 

[Bebere]

bonjour à tous
Taratata
un essai, sélection combobox de gauche rempli listbox