valeur selectionnée listbox

[TAO.TIX]

Bonjour,

sur mon formulaire, je dispose de 2 listboxes. Une contenant toutes mes valeurs et l'autre vide.
Je souhaiterais transférer les valeurs sélectionnées dans ma 1ère listbox vers la deuxième.
J'ai commencé un truc de ce genre:

Private Sub AddSoft_Click()

Dim count As Long

count = 0
Do
SaisieLogiciels.ListSofts.ListIndex = count
If SaisieLogiciels.ListSofts.Selected(count) = True Then SaisieLogiciels.ListSelectSofts.Value = SaisieLogiciels.ListSofts.Value
count = count + 1
Loop While count < SaisieLogiciels.ListSofts.ListCount

End Sub

Mon pb est que je n'arrive pas à trouver comment récupérer la valeur de la ligne sélectionnée.

Merci de votre aide.

 

[tao.tix]

Je précise que mes listbox sont en mode multiselection et que je valide le passage d'une liste à l'autre par un bouton

 

[wally]

Bonsoir tao.tix et le forum,

Voici un petit exemple qui transfère les valeurs sélectionnées dans ListBox1 vers ListBox2 :

Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.List(i)
ListBox1.Selected(i) = False
End If
Next i


Slts

wally

 

[tao.tix]

Meric de ta réponse en m'y repenchant dessus hier soir, je suis arrivé à la même chose que toi.