Filtrer une ListBox à l'aide de TextBox

Signaler
Messages postés
47
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
18 juin 2020
-
Messages postés
47
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
18 juin 2020
-
Bonjour,

Je souhaiterais filtrer ma ListBox à l'aide de TextBox et boutons de recherche ("R")
J'ai trouvé plusieurs codes sur internet mais je n'arrive pas à les adapter (ils ne fonctionnent pas)

Le fichier Excel (qui contient 25 colonnes et X lignes) et mon UserForm :

Si besoin, mon fichier : http://www.k-upload.fr/afficher-fichier-2019-02-10-1991f2a9bexemple.xlsm.html
(j'ai mis quelques commentaires dans VBA)


Merci d'avance pour votre aide,

1 réponse

Messages postés
47
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
18 juin 2020

J'utilise ma TextBox1 pour rechercher uniquement dans la 1ère colonne de ma ListBox.
(code trouvé sur le forum "Excel-Pratique" : https://forum.excel-pratique.com/viewtopic.php?t=97776)
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        sFind = Me.TextBox1.Text
        If VBA.Len(sFind) = 0 Then
            Me.ListBox1.ListIndex = -1
            Me.ListBox1.TopIndex = 0
        Else
            For i = 0 To Me.ListBox1.ListCount - 1
                If VBA.UCase(Me.ListBox1.List(i)) Like "*" & VBA.UCase(sFind) & "*" Then
                    Me.ListBox1.Selected(i) = True
                End If
            Next i
        End If
    End If
End Sub

Mais comment faire pour mes 2 autres TextBox ?
- TextBox2 = Cherche uniquement dans la colonne 3
- TextBox3 = Cherche uniquement dans la colonne 4

Merci d'avance