Multi select

[Résolu]
Signaler
Messages postés
19
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
29 août 2005
-
Messages postés
19
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
29 août 2005
-
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

Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005

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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
29 août 2005

nikel !! merci !!