Listbox vers une autre listbox

Résolu
ecthug Messages postés 42 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 12 novembre 2008 - 3 janv. 2005 à 23:09
ecthug Messages postés 42 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 12 novembre 2008 - 4 janv. 2005 à 09:17
Bonsoir
Je voudrais envoyer le choix de ma listbox1 vers une listbox2
une fois le choix sur la première effectué.
que dois-je taper comme code
oui effectivement je suis très débutant!
Merci

3 réponses

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
3 janv. 2005 à 23:57
pour une simple sélection
Private Sub List1_Click()
List2.AddItem List1.List(List1.ListIndex)
End Sub


pour une multi sélection
Private Sub List1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next
End Sub

Daniel
3
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
4 janv. 2005 à 08:38
pour effacer préalablement les lignes de la Liste2, rajoutes simplement cette ligne aprés : Private Sub List1_Click()

List2.clear

It@li@
0
ecthug Messages postés 42 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 12 novembre 2008
4 janv. 2005 à 09:17
Merci à tous les deux ,
je suis maintenant débloqué dans mon modeste projet.
Manu
0
Rejoignez-nous