Filtrer une ListBox à l'aide de TextBox

Messages postés
41
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
17 février 2019
- - Dernière réponse : 1Alexiiis
Messages postés
41
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
17 février 2019
- 17 févr. 2019 à 21:47
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,
Afficher la suite 

1 réponse

Messages postés
41
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
17 février 2019
0
Merci
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
Commenter la réponse de 1Alexiiis