Insérer plusieurs champs d'une ListBox à l'autre

Question

slt,

J'ai deux Lisbox (L1 et L2), je sais tranf&#233;r&#233;rer de L1 &#224; L2 une ligne en clicuant su un bouton, mais ce que je voudrais c'est ppouvoir faire la m&#234;me chose mais avec plusieurs lignes.

Explication:

Si dans L1 j'ai trois lignes avec : 1
                                                                2
                                                               3

je s&#233;lectionne 1 et 3 , je clique sur mon bouton (Transf) et dans une ligne de L2 j'obtiens: 1, 3

merci d'avance

cs_yvesyves · Answer

Tu peux tansférer ces lignes seulement s'il exite la ligne dans L2 ou alors tu ajoute une ligne vide.

'code
Dim u As Long
For u = 0 To (L1.ListCount - 1)
If L1.Selected(u) = True Then L2.AddItem (L1.List(u)) 
Next u

Ce code marche si L2 a le meme nombre d'éléments que L1. Sinon tu te débrouilles avec des conditions pour ajouter des lignes vides dans L2 et voilà.

phenX · Answer

je l'ai fais, ca marche bien, sauf que ca met pas sur la m&#234;me ligne sur une nouvelle ligne achaque fois. Je voudrais mettre les donn&#233;es les unes a cot&#233; des autres pour chauques multiselections.

Une autre petite questionde comprehension: a quoi sert le -1 dans For u = 0 To (L1.ListCount - 1)??

Merci

cs_yvesyves · Answer

Listcount c'est la ligne suivante qui ne contient rien. C'est doonc une valeur qui indique la limite de la liste. Si tu as 4 éléments, Liscount sera à 5.
Sinon, je te l'ai dis, il faut insérer des lignes vides pour avoir ce que tu veux. 

Public Function AddStringNull(LA as Long)
'LA => Numéro de la ligne à ajouter
Dim i as Long
If L2.listcount < LA then
for i = (LA - L2.listcount) to LA 
L2.additem("")
Next i
End if
End Function

Voilà pour rajouter les lignes vides? Attention j'ai pas testé le code

phenX · Answer

ok, ben merci, je vais voir tout ca

cs_yvesyves · Answer

'code final 
Private Sub Ajout_Click()
Dim u As Long
For u = 0 To (L1.ListCount - 1)
If L1.Selected(u) = True Then AddStringNull(u): L2.AddItem (L1.List(u)) 
Next u
End sub

Public Function AddStringNull(LA as Long)
'LA => Numéro de la ligne à ajouter
Dim i as Long
If L2.listcount < LA then
for i = (LA - L2.listcount) to LA 
L2.additem("")
Next i
End if
End Function

cs_yvesyves · Answer

Oups petite erreur c'est pas additem qui fallait mettre

Private Sub Ajout_Click()
Dim u As Long
For u = 0 To (L1.ListCount - 1)
If L1.Selected(u) True Then AddStringNull (u): L2.List(u) (L1.List(u))
Next u
End Sub

Public Function AddStringNull(LA As Long)
'LA => Numéro de la ligne à ajouter
Dim i As Long
If L2.ListCount < LA Then
For i = (LA - L2.ListCount) To LA
L2.AddItem ("")
Next i
End If

End Function

econs · Answer

Au passage, le (-1) dans (ListCount-1) sert tout simplement &#224; ne pas faire crasher ton programme.

Dans une ListBox, il y a ListCount &#233;l&#233;ments. Le premier est index&#233; 0. Donc le dernier est index&#233; (ListCount-1).

Si tu demandes List1.List(List1.ListCount), &#231;&#224; crashe car l'&#233;l&#233;ment n'existe pas.

Manu

phenX · Answer

ok merci pour toutes vos r&#233;ponses

Insérer plusieurs champs d'une ListBox à l'autre

8 réponses

Discussions similaires