[justine]

bonsoir pavel, le forum.
textbox1= recherche par reference
listbox1= visualisation de toutes les lignes selon reference

dim ref as string
dim c as range
ref= textbox1.value
listbox1.clear
x=0
for each c in range(' marquer ici la plage de recherche')
if c=ref then
listbox1.additem
listbox1.list(x,1)= c.value
listbox1.list(x,2)=c.offset(0,1).value
listbox1.list(x,3)=c.offset(0,2).value
x=x+1
end if
next

ca devrait le faire, j'ai fait ca de tete sans tester.
justine