afficher données d'une plage selon un critere

[Jean-Philippe]

Bonjour à tous,
je vous explique mon problème à travers cet exemple:
sur ma feuille excel j'ai:
article qté
livre b 5
livre a 4
livre c 3
livre b 1
livre a 2
livre b 3

J'aimerai pouvoir filtrer ma plage pour avoir le résultat suivant sur un autre fichier excel:
je choisis comme ciritère "livre b" et j'obtiens:

livre b 5
livre b 1
livre b 3

Sachant que mes données de départ peuvent évoluer dans le temps mais tout en gardant la même structure ( article, qté).

D'avance merci pour vos contributions

 

[SparKouS]

Bonjour,

Par rapport à ton exemple je considère que la liste de base est placée en :
A1:A10

tu rentres "livre b" dans un TextBox " Textbox1"
et tu lances recherche .
les résultats s'inscrivent dans la colonne B (mais tu peux utiliser autrement le " c.value " ...)

----

Sub recherche()
Dim TaString As String

TaString = TextBox1.Value
I = 1
With Worksheets(1).Range("a1:a10")
Set c = .Find(TaString, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(I, 2).Value = c.Value
I = I + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

---

Ca répond à une moitié du problème
A+