Rechercher sur une listbox (vb)

tu pourra utiliser la propriete ".list( )" pour avoir les valeurs des elements et la fonction "instr$( )" pour verifier l'existance d'une sous-chaine dans une chaine:
exemple pour avoir un msgbox pour chaque element valide :

 
   sub tester_liste(valeur as string)
      for i=1 to list1.listcount-1
          if instr(list1.list(i),valeur)=1 then
              msgbox list1.list(i),,str$(i)
          end if
      next
   end sub

Bonjour
Je rebondi sur le sujet, parceque j'utilise le meme code, mais j'ai un petit probleme.
Cela marche si vous connaissez les premieres lettres. Mais si vous ne connaissez qu'une partie, comment faire?
Exemple: J'ai dans ma listbox (qui contient plus de 10000 lignes) "4287583", et je cherche avec "8758", parceque je ne vois plus que ces nombres sur ma piece.
Ou bien j'ai "Shutdown device" dans ma listbox et je ne peux chercher qu'avec "down device" ou "device"
Si quelqu'un a une solution, ca m'arrangerait.