Bonjour a tous,
voilà j'ai un textbox avec une listbox quand je tape mon texte dans ma textbox il recherche dans ma feuille colonne A.
Le problème ses que j'aimerait que ma recherche se fasse a partir de n'importe ou dans la chaine de caractère..... et non pas seulement a partir de la gauche...
exemple comme dans Itune quand ont tape "park lin"
bien il nous ressort tout le "linkin park"
pour l'instant si ma chaine de caractère est "salut 1234"
je doit absolument taper dans ma textbox "sal" pour qu'il me ressorte mon "salut 1234"
alors que j'aimerai pouvoir taper "12 sa" pour qu'il me sorte ma chaine "salut 1234".
Voici mon code ....
Merci encore pour votre support.
voilà j'ai un textbox avec une listbox quand je tape mon texte dans ma textbox il recherche dans ma feuille colonne A.
Le problème ses que j'aimerait que ma recherche se fasse a partir de n'importe ou dans la chaine de caractère..... et non pas seulement a partir de la gauche...
exemple comme dans Itune quand ont tape "park lin"
bien il nous ressort tout le "linkin park"
pour l'instant si ma chaine de caractère est "salut 1234"
je doit absolument taper dans ma textbox "sal" pour qu'il me ressorte mon "salut 1234"
alors que j'aimerai pouvoir taper "12 sa" pour qu'il me sorte ma chaine "salut 1234".
Voici mon code ....
Merci encore pour votre support.
Code:
Private Sub TextBoxRechCode_Change()
ListBox1.Clear
ListBox2.Clear
N = 0
Recherche = TextBoxRechCode.Value
Ligne = Worksheets("vente").Range("a" & "65536").End(xlUp).Row
Set Plage = Worksheets("vente").Range("a" & "1:" & "a" & 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.Offset(0, 0), N
ListBox1.List(N, 0) = C
ListBox1.List(N, 1) = C.Offset(0, 1)
ListBox1.List(N, 2) = C.Offset(0, 2)
ListBox1.List(N, 3) = C.Offset(0, 3)
ListBox1.List(N, 4) = C.Offset(0, 4)
N = N + 1
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
For x = 1 To 8
Controls("Textbox" & x) = ""
Next x
If TextBoxRechCode = "" Then ListBox1.List = t
Dernière édition: