Multi select

Résolu
cs_mimimati Messages postés 19 Date d'inscription mardi 5 juillet 2005 Statut Membre Dernière intervention 29 août 2005 - 29 juil. 2005 à 13:35
cs_mimimati Messages postés 19 Date d'inscription mardi 5 juillet 2005 Statut Membre Dernière intervention 29 août 2005 - 29 juil. 2005 à 14:21
sur mon écran j'ai deux liste box
et j'aimerai que lorsque je selectionne plusieurs lignes dans ma premiere liste, il me les envoi dans la seconde liste.
pour le moment lorsque j appui sur le boutton il ne renvoi qu une seule ligne, et non pas toutes les lignes sélectionnées.

Merci d'avance

2 réponses

Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005
29 juil. 2005 à 14:08
Bonjour,



Essaies ceci



'Dans un module

Sub ChargeListe(ByVal ListeSource As ListBox, ListeDestination As ListBox)

Dim T As Long

ListeDestination.Clear

For T = 0 To ListeSource.ListCount - 1


If ListeSource.Selected(T) = True Then


ListeDestination.AddItem Trim(.List(T))

End If

Next T

End Sub


'Derrière ton boutton



Call ChargeListe(NomDeLaListeBoxSource,NomDeLaListeBoxDestination)


Ricks27
3
cs_mimimati Messages postés 19 Date d'inscription mardi 5 juillet 2005 Statut Membre Dernière intervention 29 août 2005
29 juil. 2005 à 14:21
nikel !! merci !!
0