Bonjour,

Je cherche à lier un Textbox à une Listbox de manière à ce qu'en saisissant le nom du fournisseur dans ce textbox ça effectue un filtre dans ma listbox.

Après de nombreuses recherches sur internet et sur ce forum, j'ai trouvé un bout de code qui semble convenir, mais quand je l'insère dans mon fichier j'obtiens l'erreur suivante : "erreur 1004 : erreur définie parl'application ou par l'objet"

Vous trouverez ci-dessous le code utilisé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Textbox1_Change()
 Me.Listbox1.Clear
 i = 0
 Set plage = [frs].Resize(, NbCol)
 Set c = plage.Find(Me.Listbox1, , , xlPart)
 If Not c Is Nothing Then
      premier = c.Address
      Do
          Me.Listbox1.AddItem
          Lig = c.Row
          For col = 1 To NbCol
            Me.Listbox1.List(i, col - 1) = Cells(Lig, col)
          Next col
          i = i + 1
        Set c = plage.FindNext(c)
      Loop While Not c Is Nothing And c.Address <> premier
  End If
End Sub
L'erreur apparaît sur la ligne suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set plage = [frs].Resize(, NbCol)
frs étant la plage de cellules B2:B1000 correspondant aux noms des sociétés

Un grand merci par avance pour votre aide !