Faire un recherche et résultat dans un listBOX

On 2 fév, 16:17, -- RG -- <R...@discussions.microsoft.com> wrote:

bonjour,
je desire faire une recherche d'un chaine à partir d'une zone Ex "A1:B5 0" et
charger
le(s) résultat(s) dans un listbox.
Si vous avez une idée ?
D'avance merci
rené

Bonsoir,

Affiche dans un ListBox toutes les occurences d'un nom trouvé en
colonne A

Private Sub B_go_Click()
Me.ListBox1.Clear
Set c = Range("a:a").Find(Me.TextBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Do
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Value
Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value
Me.ListBox1.List(i, 2) = c.Offset(0, 2).Value
Set c = Range("a:a").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub

http://boisgontierj.free.fr/pages_site/Listes2.htm

Cordialement JB

C'est OK
merci pour ton aide
rené

On 2 fév, 16:17, -- RG -- <R...@discussions.microsoft.com> wrote:

bonjour,
je desire faire une recherche d'un chaine à partir d'une zone Ex "A1:B50" et
charger
le(s) résultat(s) dans un listbox.
Si vous avez une idée ?
D'avance merci
rené

Bonsoir,

Affiche dans un ListBox toutes les occurences d'un nom trouvé en
colonne A

Private Sub B_go_Click()
Me.ListBox1.Clear
Set c = Range("a:a").Find(Me.TextBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Do
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Value
Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value
Me.ListBox1.List(i, 2) = c.Offset(0, 2).Value
Set c = Range("a:a").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub

http://boisgontierj.free.fr/pages_site/Listes2.htm

Cordialement JB