EXEMPLE DE MANIPULATION DE DONNÉES ENTRE DEUX LISTBOX : AJOUT, DÉPLACEMENT (VERS

Signaler
Messages postés
38
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
29 mai 2006
-
Messages postés
38
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
29 mai 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7519-exemple-de-manipulation-de-donnees-entre-deux-listbox-ajout-deplacement-version-beta

Messages postés
38
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
29 mai 2006

Je suis content que çà serve a des galériens dans mon genre ;)
Messages postés
29
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
30 novembre 2006

Merci bien j'ai trouvé une solution grâce à toi !
Messages postés
4
Date d'inscription
lundi 25 mars 2002
Statut
Membre
Dernière intervention
16 juin 2004
1
merci ta source est exactement ce que je cherchais. Simple et facilement intégrable 1000x merci :-)
Messages postés
38
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
29 mai 2006

j'ai résolu le problème dans les déplacements verticaux en rajoutant un test tout con :
pour monter un item

If List2.ListIndex <> 0 Then
list2text = List2.List(List2.ListIndex)
list2textindex = List2.ListIndex
List2.List(list2textindex) = List6.List(list2textindex - 1)
List2.List(list2textindex - 1) = list2text
List2.Selected(list2textindex - 1) = True
End If

pour le descendre le test est

If List2.List(list2textindex + 1) <> "" Then
List2.List(list2textindex) = List2.List(list2textindex + 1)
List2.List(list2textindex + 1) = list2text
List2.Selected(list2textindex + 1) = True
End If

voila