Recherche dans une listbox

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai mis en place le code proposé par joe.levrai dans la discussion ci-dessous

https://www.developpez.net/forums/d1...x/#post8319424

Sous cette forme le code recherche dans la 1ère colonne, mais :

1- je voudrais l'améliorer pour qu'il recherche dans les autres colonnes

2- qu'il ne prenne pas en compte la casse

3- qu'il aille me sélectionner dans la ListBox1 le premier résultat trouvé

Je vous ai mis mon fichier en pièce jointe.

Merci pour votre aide et Bon Dimanche
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Function data_in_listbox() 'Affichage Liste Clients (ListeBoxClients) ListBox1.ColumnCount = 5 ListBox1.ColumnWidths = "50;50;50;50;50" Sheets("Feuil1").Activate Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row If lastRow <> 1 Then ListBox1.List = Range("A2:E" & lastRow).Value End If End Function Private Sub TextBoxRecherche_Change() With Me ' efface le listbox de filtrage .ListBoxResultats.Clear ' pour chaque élément de la matrice For i = 1 To .ListBox1.ListCount ' si l'élément commence par ce qui est écrit dans le champs recherche ' on l'ajoute au listbox de filtrage FILTRE = "*" & TextBoxRecherche.Text & "*" If .ListBox1.List(i - 1) Like FILTRE Then .ListBoxResultats.AddItem .ListBox1.List(i - 1) Next i End With End Sub Private Sub UserForm_Initialize() Call data_in_listbox End Sub

Bonjour, voici une proposition:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TextBoxRecherche_Change()
    Dim FILTRE As String
    Dim i As Long, j As Long
    Dim resultatTrouve As Boolean
 
    With Me
        .ListBoxResultats.Clear
 
        ' Définit le filtre en ignorant la casse
        FILTRE = "*" & LCase(TextBoxRecherche.Text) & "*"
 
        For i = 0 To .ListBox1.ListCount - 1
            For j = 0 To .ListBox1.ColumnCount - 1
                If LCase(.ListBox1.List(i, j)) Like FILTRE Then
                    .ListBoxResultats.AddItem .ListBox1.List(i, 0)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 1) = .ListBox1.List(i, 1)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 2) = .ListBox1.List(i, 2)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 3) = .ListBox1.List(i, 3)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 4) = .ListBox1.List(i, 4)
 
                    ' Sélectionne le premier résultat trouvé dans ListBox1
                    If Not resultatTrouve Then
                        .ListBox1.ListIndex = i
                        resultatTrouve = True
                    End If
                    Exit For
                End If
            Next j
        Next i
    End With
End Sub

Citation:

Envoyé par Franc

Bonjour, voici une proposition:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TextBoxRecherche_Change()
    Dim FILTRE As String
    Dim i As Long, j As Long
    Dim resultatTrouve As Boolean
 
    With Me
        .ListBoxResultats.Clear
 
        ' Définit le filtre en ignorant la casse
        FILTRE = "*" & LCase(TextBoxRecherche.Text) & "*"
 
        For i = 0 To .ListBox1.ListCount - 1
            For j = 0 To .ListBox1.ColumnCount - 1
                If LCase(.ListBox1.List(i, j)) Like FILTRE Then
                    .ListBoxResultats.AddItem .ListBox1.List(i, 0)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 1) = .ListBox1.List(i, 1)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 2) = .ListBox1.List(i, 2)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 3) = .ListBox1.List(i, 3)
                    .ListBoxResultats.List(.ListBoxResultats.ListCount - 1, 4) = .ListBox1.List(i, 4)
 
                    ' Sélectionne le premier résultat trouvé dans ListBox1
                    If Not resultatTrouve Then
                        .ListBox1.ListIndex = i
                        resultatTrouve = True
                    End If
                    Exit For
                End If
            Next j
        Next i
    End With
End Sub

Super, exactement ce que je recherchais , Merci Franc