|
|
|
|
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:
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 subL'erreur est humaine mais un véritable désastre ne peut être qu'informatique. |