filtrage listbox via combobox

[Kim75]

Bonjour le forum,

Merci à Jacques BOISGONTIER qui nous fait part d’une form hyper pratique pour le filtrage de listbox via combobox :

Menus en cascade

J’ai cherché parmi pratiquement toutes les pages du forum, mais en vain, aucun exemple trouvé pour pouvoir l’adapter, j’ai essayé plein de techniques, mais je n’y arrive pas,

-1°. Laisser la base de données telle quelle
-2°. Laisser le système de filtrage de combobox tel quel

Mais de sorte que :

-1°. A l'appel de l'userform :
La listbox soit alimentée uniquement par les lignes correspondantes à la valeur ‘A’ de la colonne ‘Domaine’

-2°. Et au filtrage des combobox :
Dans la listbox, n’apparaissent que les lignes correspondantes à la valeur ‘A’ de la colonne ‘Domaine’

Ce serait sympa si quelqu’un avait une idée comment faire, ou quelque autre exemple aboutissant au but visé.

Cordialement, Kim.

 

[Bebere]

Re : filtrage listbox via combobox

bonjour Kim
un code pour alimenter listbox1 avec domaine="A"

     Dim tbl() As String, Rng As Range, Cel As Range, i As Long

   Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=3, Criteria1:="A"
    Set Rng = Range("A2", [A64000].End(xlUp))
    Set Rng = Rng.SpecialCells(xlCellTypeVisible)
    ReDim tbl(0 To Rng.Count - 1, 0 To 3)
    For Each Cel In Rng
        tbl(i, 0) = Cel.Value
        tbl(i, 1) = Cel.Offset(, 1).Value
        tbl(i, 2) = Cel.Offset(, 2).Value
        tbl(i, 3) = Cel.Offset(, 3).Value
        i = i + 1
    Next
    Me.ListBox1.List = tbl
    
  ActiveSheet.ShowAllData