bonjour,

voila : j'ai un probléme au niveau de la listbox , je fais un teste pour que les doublants ne soient pas ajoutés dans la liste mais ca ne marche pas
voila mon morceau de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
dim i as integer
for i=0 to listbox.items.count-1
if trim(listbox.items.item(i)).tostring<>trim(txtbox1.text &"__"& txtbox2.text) then
listbox.items.add(txtbox1.text &"__&"txtbox2.text)
else
exit sub 
end if
next i
merci d'avance de m'aider