Filtre par textbox sur listbox

Re : Filtre par textbox sur listbox

bonjour yvon

isi tu pouvais ,nous envoyer un bout de ton fichier en enlevant les informations confidentielles

@ te lire

Re : Filtre par textbox sur listbox

wilfried_42 à dit:

bonjour yvon

isi tu pouvais ,nous envoyer un bout de ton fichier en enlevant les informations confidentielles

@ te lire

Cliquez pour agrandir...

Bonjour Wilfried, le forum,

Je te remercie de ton aide, j'ai trouvé un bout de la solution à mon problème sur un post de MichelXLD :
https://www.excel-downloads.com/threads/filtrer-une-listbox-avec-une-donner-textbox.41740/

Le souci restant est d'arriver à afficher la listbox en multicolonne

Private Sub TextBox1_AfterUpdate()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object

ListBox1.Clear

Recherche = TextBox1
Sheets(1).Range("A1").Select
Ligne = Sheets(1).Range("C" & "65536").End(xlUp).Row
Set Plage = Sheets(1).Range("C" & "3:" & "c" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then ListBox1.AddItem C
ListBox1.ColumnCount = 20
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub

Par avance merci de ton aide aide
a+
Yvon

Re : Filtre par textbox sur listbox

re:

c'est franchement plus facile avec un fichier

je te renvoie le fichier de michelXld; avec une listebox à 5 colonnes

Re : Filtre par textbox sur listbox

Bonsoir Wilfired, le forum,

Je te remercide ton aide, j'ai un souci l'intégration du code que tu as modifié n'affiche pas sur cinq colonne mais seulement sur une et je ne comprend pas pourquoi, puique j'ai collé ton code, la seule modif faite et de remplacer feuil1 par sheets(1).

je te livre le code :

Private Sub TextBox1_AfterUpdate()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object

'ListBox1.Clear

Recherche = TextBox1.Value
Range("A1").Select
Ligne = Sheets(1).Range("B" & "65536").End(xlUp).Row
Set Plage = Sheets(1).Range("B" & "2:" & "B" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
ListBox1.AddItem ""
ListBox1.List(ListBox1.ListCount - 1, 0) = C.Offset(0, -1)
ListBox1.List(ListBox1.ListCount - 1, 1) = C
ListBox1.List(ListBox1.ListCount - 1, 2) = Format(C.Offset(0, 1), "### ##0.00")
ListBox1.List(ListBox1.ListCount - 1, 3) = C.Offset(0, 2)
ListBox1.List(ListBox1.ListCount - 1, 4) = C.Offset(0, 3)
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub

Par avance mercide ton aide

a+
Yvon,

Re : Filtre par textbox sur listbox

re:

regarde dans ta listbox, propriete columncount doit etre = à 5

Re : Filtre par textbox sur listbox

wilfried_42 à dit:

re:

regarde dans ta listbox, propriete columncount doit etre = à 5

Cliquez pour agrandir...

Bonjour Wilfried, le forum,

Bin oui au chèvre au scope, j'ai ma photo, trop simple, je te remercie de ton aide.

a+
Yvon