Filtrer une ListBox à l'aide de TextBox

Question

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,

1Alexiiis · Answer

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

Filtrer une ListBox à l'aide de TextBox

1 réponse

Votre réponse

Discussions similaires