Multiselection dans une liste vers une autre liste

Frank19 Messages postés 65 Date d'inscription mardi 27 novembre 2001 Statut Membre Dernière intervention 24 juin 2010 - 27 nov. 2003 à 21:20
Frank19 Messages postés 65 Date d'inscription mardi 27 novembre 2001 Statut Membre Dernière intervention 24 juin 2010 - 27 nov. 2003 à 21:34
voila jessaye de faire une multiselection dans ma list1 et d'envoyé les éléments sélectionné dans ma list2 tout en vérifiant si les items que j'envoi dans la list2 n'y sont pas déja ... méthode rapide ?!

merci !

1 réponse

Frank19 Messages postés 65 Date d'inscription mardi 27 novembre 2001 Statut Membre Dernière intervention 24 juin 2010
27 nov. 2003 à 21:34
c'est bon jai trouvé :P

si sa intéresse du monde !

Dim cpt
Dim cpt1
For cpt1 = 0 To DataList_poste.ListCount - 1
If DataList_poste.Selected(cpt1) Then
For cpt = 0 To List_poste.ListCount
If List_poste.List(cpt) = DataList_poste.Text Then
MsgBox "L'item " & DataList_poste.Text & " est déjà dans la liste.", vbCritical
Exit Sub
End If
Next cpt
List_poste.AddItem (DataList_poste.List(cpt1))
End If
Next
0
Rejoignez-nous