Recherche une référence dans une ListBox par la saisie dans une TextBox

Bonsoir,

Dans le fichier ci-joint, j'ai un formualire "Usf_DC4" qui comporte une ListBox.

Afin de rechercher la référence souhaitée dans la LIstBox (première colonne "A" de la feuille "DC4") , je souhaite pouvoir saisir la référence dans la TextBox10 (située à côté du Label "RECHERCHE PAR RÉF. PAPYRUS" dans le formulaire. L'idée est celle-ci : dès que nous commençons à saisir les caractères de la référence recherchée dans la TextBox10, la recherche commence à opérer dans la ListBox.

Si quelqu'un a une idée, et restant à l'écoute.

Merci par avance,

Bonsoir,

voyez si ce fichier

peut vous aider à avancer dans votre projet.

@ bientôt

LouReeD

Bonsoir MICKAEL59 , LouReeD ,

Pour ce que j'en ai compris, voir le fichier joint. Il est basé sur une nouvelle fonction AlimenterListbox.

Cette fonction comprend un paramètre optionnel filtre: Sub AlimenterListbox(Optional ByVal filtre)

• Si ref est absent alors on garni Listbox1 avec toutes les lignes de DC4
• Si ref est présent alors on filtre DC4 avec le champ Réf. Papyrus qui doit contenir filtre
• votre fonction initiale d'alimentation de Listbox1 a été supprimée

Le code de la fonction :

Sub AlimenterListbox(Optional ByVal filtre)
Dim der&, t
   ListBox1.Clear
   If IsMissing(filtre) Then filtre = "*"
   If filtre = "" Then filtre = "*"
   filtre = LCase(filtre)
   With Sheets("DC4")
      If .FilterMode Then .ShowAllData
      der = .Cells(Rows.Count, "a").End(xlUp).Row
      If der = 2 Then Exit Sub
      t = .Range("a2:o" & der)
      For i = 1 To UBound(t)
         If LCase(t(i, 1)) Like "*" & filtre & "*" Then
            n = n + 1
            For j = 1 To UBound(t, 2): t(n, j) = t(i, j): Next
         End If
      Next i
      If n > 0 Then
         ReDim r(1 To n, 1 To UBound(t, 2))
         For i = 1 To n: For j = 1 To UBound(t, 2): r(i, j) = t(i, j): Next j: Next i
         Usf_DC4.ListBox1.List = r
      End If
   End With
End Sub

...

Bonjour LouReeD , mafraise

Un grand merci pour vos retours, mafraise concernant ton code, est-ce qu'il y a une possibilité pour préserver les entêtes de colonne dans la ListBox ?

Merci,