Re : Formulaire de recherche avec résultat dans zone de liste
J'ai ajouté ce bout de code pour filtrer le tableau et afficher les résultats dans la zone de liste:
Private Sub TextBox1_Change()
Dim crit1 As String
crit1 = TextBox1.Text
Sheets("Feuil1").Select
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=1, Criteria1:=crit1, _
Operator:=xlAnd
Dim Plage As String
With Sheets("Feuil1")
Plage = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Address
End With
ListBox1.RowSource = "Feuil1!" & Plage
End Sub
Mais les résultats ne sont pas concluants...