Discussion :

[morgan47]

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 :

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
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

[SfJ5Rpw8]

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 ...?

[morgan47]

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

[morgan47]

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

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
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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
ligneu = Cherche.Row
...