Filtrer une ListBox à partir d'une ComboBox

Question

Il y a beaucoup de sujet déjà sur ma problématique, toutefois je ne trouve pas ce qui me correspond, donc je sollicite votre aide! Dans mon UserForm (UF_RegistreDC) il y a une ListBox1 et une ComboBox_Filtre. Ce que j'aimerais pour ne prendre qu'un exemple dans la ComboBox_Filtre est que quand la saisie est Architecture qu'il me montre uniquement les directives qui débute par "DC-A". Vous aurez accès à se UserForm en cliquant sur le lien dans la première feuil du classeur. La ListBox1 prend ses informations dans la feuille nommé "DATA_DC". Votre aide est toujours très apprécié...

Arturo83 · Accepted Answer

En fait, j'ai mal compris le problème dès le début. Le problème est que chez moi je ne peut rien tester, car j'ai beaucoup de bugs(probablement liés à ma version un peu ancienne d'excel), donc je fais comme je le comprends puisque je ne peux rien tester.

Il faut donc récupérer la sélection de la comboBox_filtre, ici j'ai créée la variable "Structure" pour le choix retenu,

Private Sub ComboBox_Filtre_Change()
    If ComboBox_Filtre.Value <> "" Then
        Label_Filtre.Visible = False
        Label_Feffacé.Visible = True
    Else
        Label_Filtre.Visible = True
        Label_Feffacé.Visible = False
    End If

    Structure = ComboBox_Filtre.Text 'Variable structure pour l'item sélectionné dans la comboBox
    If ComboBox_Filtre <> "" Then
        Dim tb()
        Dim I%, j%
        tb = Sheets("DATA_DC").Range("A2:GC" & Sheets("DATA_DC").[B2000].End(xlUp).Row).Value
        ListBox1.Clear
        For I = 1 To UBound(tb)
            If tb(I, 2) = Structure Then 'Recherche de l'item sélectionné
                'Ajoute une ligne et insère une donnée dans la colonne de gauche
                ListBox1.AddItem tb(I, 1)
                'Ajoute des données dans les colonnes de droite
                For j = 1 To UBound(tb, 2)
                    ListBox1.List(ListBox1.ListCount - 1, j - 1) = tb(I, j)
                Next j
            End If
        Next I
    End If
End Sub

Selon le choix que vous ferez dans la comboBox_Filtre, il faudra peut-être ajouter un astérisque dans "If tb(I, 2) = Structure Then".

Arturo83 · Answer

SI j'ai bien compris, dans la macro "Ouvrir_RegistreDC" Remplacez cette partie de code For I = LBound(TblTmp) To UBound(TblTmp) ReDim Preserve Choix(1 To I) For k = LBound(TblTmp) To UBound(TblTmp, 2) Choix(I) = Choix(I) & TblTmp(I, k) & " * " Next k par celle-ci: For I = LBound(TblTmp) To UBound(TblTmp) ReDim Preserve Choix(1 To I) For k = LBound(TblTmp) To UBound(TblTmp, 2) If Left(TblTmp(I, 1), 4) = "DC-A" Then Choix(I) = Choix(I) & TblTmp(I, k) & " * " Next k Next I Cdlt...

Arturo83 · Answer

Alors ceci:

    For I = LBound(TblTmp) To UBound(TblTmp)
        ReDim Preserve Choix(1 To I)
        'on affecte la variable DC en fonction du nombre de caractères recherchés
        For k = LBound(TblTmp) To UBound(TblTmp, 2)
            Select Case Left(TblTmp(I, 1), 4) 'recherche sur les 4 premiers caractères
                Case Is = "DC-A" 'Architecture
                    DC = "DC-A"
                Case Is = "DC-C" 'Civil
                    DC = "DC-C"
                Case Is = "DC-S" 'Structure
                    DC = "DC-S"
            End Select
            If DC = "" Then 'si rien n'est trouvé dans les 4 premiers caractères alors, on cherche sur les 5 premiers caractères
                Select Case Left(TblTmp(I, 1), 5) 'recherche sur les 5 premiers caractères
                   Case Is = "DC-IN" 'Interne
                       DC = "DC-IN"
                   Case Is = "DC-ME" 'Mécanique
                       DC = "DC-ME"
                End Select
            End If
            If Left(TblTmp(I, 1), 4) = DC Then Choix(I) = Choix(I) & TblTmp(I, k) & " * "
        Next k
    Next I

A compléter sur le même principe pour les DC manquants.

Jean-Paul · Answer

Pour ma part je partirais sur une autre réflexion. Tout d'abord modifier le tableau TB_filtre comme ceci: A toi de modifier les ID à ta guise Au niveau du formulaire tu modifie les propriétés de ComboBox-Filtre ColumnCount = 2 BoundColumn = 1 ColumnWidth =0 RowSource = TB_filtre Il ne te reste plus qu' faire la comparaison ListBox1.Clear For i = 1 To UBound(tb) If tb(i, 2) Like ComboBox_Filtre.Value & "*" Then 'Ajoute une ligne et insère une donnée dans la colonne de gauche ListBox1.AddItem tb(i, 1) '... '... Petites remarques : Le tableau TB_id n'a pas lieu d'être tu doit l'intégrer au tableau TB_directive et l'incrementer à chaque ajout de ligne, ex : Dim lstObj As ListObject Dim lstRow As ListRow Set lstObj = Feuil5.Range("TB_directive").ListObject Set lstRow = lstObj.ListRows.Add lstRow.Range("A1") = Application.WorksheetFunction.Max(lstObj.ListColumns("ID")) + 1 '... '... Dans tous les cas il faut éviter de placer des tableaux à coté l'un de l'autre. Eviter aussi les accents dans le code. Je n'ai pas tester le code donc ne pas hésiter à remonter un bug éventuel. Oupsss edit la ligne du Like.....