Discussion :

[eraim]

Bonjour, tout le monde!

J'ai juste une petite question...
Y a-t-il moyen de récupérer l'ensemble des lignes sélectionnées dans une listbox pour les afficher par exemple dans un champ de texte ?
Si oui, comment dois-je faire ?

Merci d'avance!

[loufab]

bonjour,

D'après le code disponible dans l'aide (selected)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Liste0_LostFocus()
 
    Dim ctlSource As Control
    Dim ctlDest As Control
    Dim strItems As String
    Dim intCurrentRow As Integer
 
    Set ctlSource = Me.Liste0
    Set ctlDest = Me.TEXTE2
 
    For intCurrentRow = 0 To ctlSource.ListCount - 1
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & ctlSource.Column(0, _
                 intCurrentRow) & ";"
        End If
    Next intCurrentRow
 
    ' Reset destination control's RowSource property.
    ctlDest = strItems
 
    Set ctlSource = Nothing
    Set ctlDest = Nothing
 
End Sub

Veiller à ce que la propriété Selection multiple = étendu.

Cordialement,

[eraim]

Est-il possible de faire cela sans passer par du code ?

[Tofalu]

Est-il possible de faire cela sans passer par du code ?

Non

[Faw]

Je ne suis pas spécialiste mais il vaut mieux, à mon avis, utiliser
une boucle sur les éléments sélectionnés plutôt que de boucler
sur toute la liste en testant si sélectionné ou pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 0 To Liste0.ItemsSelected.Count - 1
 
... 'sans le if/Then

Le mode sélection multiple peut être Simple ou Etendu, ici ça ne fait pas de différence à mon sens.


Un petit détail; les références aux lignes sélectionnées deviennent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Liste0.ItemData(Me.Liste0.ItemsSelected(I))  'Pour la colonne liée
Me.Liste0.Column(indexcolonne, Me.Liste0.ItemsSelected(I)) 'pour n'importe quelle colonne.