[Excel]Chercher un élement puis retourné dans une listbox

bonjour bonjour

aprés être venu plusieur fois pour demander de l'aide, je viens cette fois ci pour vous donner le resultat de mon minuscule travail.
Je n'aurai jamais réussi sans Ania, ouskel'n'or,plegatet d'autre que je remercie énormément .

le code permet de recherche dans une colonne un text entré dans un textbox, il retourne les resultat dans une listbox avec toute la ligne qui fait référence a la recherche.

pour ce que ca interesse voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub CommandButton1_Click()   UserForm1.ListBox1.ColumnCount = 2 UserForm1.ListBox1.ColumnWidths = "120;120"     Dim chercher As String Dim limit As Long, ligneu As Long Dim msg   chercher = TextBox1.Text   ligneu = Feuil1.Columns(1).Find("" & chercher, [A1], , , xlByRows, xlNext).Row msg = Feuil1.Cells(ligneu, 1) UserForm1.ListBox1.AddItem msg UserForm1.ListBox1.List(0, 1) = Feuil1.Cells(ligneu, 2)   limit = 100 Do While ligneu < limit vl = ligneu ligneu = Feuil1.Columns(1).FindNext(after:=Cells(vl, 1)).Row   If ligneu < vl Or ligneu = vl Then Exit Do   msg = Feuil1.Cells(ligneu, 1) UserForm1.ListBox1.AddItem Feuil1.Cells(ligneu, 1) UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Feuil1.Cells(ligneu, 2)   Loop End Sub

---

encore merci pour votre aide a tous
bonne soirée

merci pour le code ..., je te soumet un probléme ... que ce passe-t'il si le "text" cherché n'existe pas dans la colonne ...?

héhé, bonne question j'avais travaillé sur des objet qui existé, je vais regarder ce probleme et je revien plus tard :)

voila le code modifier, je ne sais pas si c'est trés catolique mais ca fonctionne :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Private Sub CommandButton1_Click() UserForm1.ListBox1.Clear UserForm1.ListBox1.ColumnCount = 2 UserForm1.ListBox1.ColumnWidths = "120;120"     Dim chercher As String, NomTemp As String Dim AncienneLigne As Long, NouvelleLigne As Long   chercher = TextBox1.Text     Set cherche = Feuil1.Columns(1).Find("" & chercher, [A1], , , xlByRows, xlNext) If cherche Is Nothing Then MsgBox "Aucun résultat"   Else ligneu = Feuil1.Columns(1).Find("" & chercher, [A1], , , xlByRows, xlNext).Row msg = Feuil1.Cells(ligneu, 1) UserForm1.ListBox1.AddItem msg UserForm1.ListBox1.List(0, 1) = Feuil1.Cells(ligneu, 2)   limit = 100 Do While ligneu < limit vl = ligneu ok = "[A" & vl & "]" 'MsgBox ok ligneu = Feuil1.Columns(1).FindNext(after:=Cells(vl, 1)).Row If ligneu < vl Or ligneu = vl Then Exit Do msg = Feuil1.Cells(ligneu, 1) UserForm1.ListBox1.AddItem Feuil1.Cells(ligneu, 1)   UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Feuil1.Cells(ligneu, 2) Loop End If

---

je pensai aussi à une solution dans ce genre... par contre pas la peine d'effectuer 2 fois la recherche... utilise ta variable "cherche "

Code:

---

1 2 3 4

... ligneu = Cherche.Row ...

---

;)