Re: Besoin d'aide Listebox

Posté par polux le 19/6/2006 14:15:25
Bonjour,

voici un bout de code permettant d'ajouter les éléments sélectionnés de la liste 1 vers la liste 2...

i est un entier = ListeSelectOccurrence(LISTE_1)
j est un entier = 1
k est un entier = ListeSelect(LISTE_1)
resRech est un entier

TANTQUE j <= i
  resRech=ListeCherche(LISTE_2,LISTE_1[k]..ValeurAffichée)
  SI resRech = -1 ALORS
    ListeAjoute(LISTE_2,LISTE_1[k]..ValeurAffichée)
  FIN

  j++
  ListeSelectMoins(LISTE_1,k)
  k = ListeSelect(LISTE_1)
	
FIN

ListeSelectPlus(LISTE_1,1)

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4227&post_id=17408