Bonjoir,
j'ai un probleme j'ai un tableau pour saisir les nombres ( 20 )
et les afficher dans une liste le probleme c'est que je veux que des nombres déffirante c'est a dire par ex 10 une seule fois et comme ça j'arrive pas a faire ça merci de m'aider

Ecrire une Fonction de controle du Style
Private Function DataExiste(DataToControl as string) as boolean
dim iPnt as integer
for iPnt=0 to List1.ListCount
if list1.list(ipnt)=DataToControl then
dataExiste=true
exit for
end if
next
end function

Pour ajouter une valeur dans le list1 on fait alors
if not(DataExiste("20") then
list1.additem "20"
end if
Jean-Luc


-------------------------------
Réponse au message :
-------------------------------

> Bonjoir,
> j'ai un probleme j'ai un tableau pour saisir les nombres ( 20 )
> et les afficher dans une liste le probleme c'est que je veux que des nombres déffirante c'est a dire par ex 10 une seule fois et comme ça j'arrive pas a faire ça merci de m'aider