[VBA-E]récupérer le nom des lignes sélectionnées d'une listbox

Version imprimable

31/05/2006, 14h14
Ania

[VBA-E]récupérer le nom des lignes sélectionnées d'une listbox

Bonjour à tous :)

Dans une form, j'affiche le nom de toutes les pièces d'un batiment.

Et je souhaite récupérer le nom de toutes les pièces sélectionnées
Quand la propriété MultiSelect est à 2 (multi sélection avec Ctrl et Maj)
je ne peux utilisé les propriétés Text et Value pour cette tache

tout ce que je sais, c'est que la propriété Selected(N°ligne) me permet de savoir si une ligne est sélectionnée ou non
31/05/2006, 15h06
zazaraignée

Salut

tu récupères dans un tableau les indices de lignes qui sont sélectionnées et tu boucle sur ce tableau pour récupérer les noms sélectionnés dans ta liste.
31/05/2006, 15h13
jmfmarques
Tu peux également faire une boucle directe sur les index de ta listbox !
vois donc ce que fais si tu as au moins 2 articles (index 0 et 1, donc)
Code:

1 2 3 Private Sub Command1_Click() MsgBox List1.List(1) End Sub

Code:

1
2
3
4
5
For i = 1 to ListBox1.Listcount
     If ListBox1.Selected(i) = True Then
          'tu crées un tableau des index sélectionnés
     endif
Next

A+

Pas testé

31/05/2006, 15h31
jmfmarques

C'est bon, ousk ! (mais tu lui as tout donné d'un seul coup !)
faut commencer par 0... pas par 1... et aller jusqu'au compte -1:lol:
31/05/2006, 15h34
ouskel'n'or

Je voulais juste qu'il teste ça pour moi :lol:

Désolé, jemefe, la prochaine fois j'attendrai qu'on en soit à la troisième page :lol:
31/05/2006, 15h36
ouskel'n'or

J'ajoute que 0 si (quelquechose)Head = true (column ?)

C'est une question...
31/05/2006, 15h37
jmfmarques

Non : toujours 0 (1er index)
31/05/2006, 15h42
ouskel'n'or

Merci. Comme je n'ai jamais eu l'occasion d'utiliser le multiselect, je ne savais pas. :( mais maintenant je sais :lol:

Je vous remercie pour vos solutions
donc au final voila ce que j'ai fait :
Dans un premier temps je recherche les éléments qui sont Sélectionnés ainsi que leur nombre (combien y'a-t-il d'éléments sélectionnés)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function RechercheSelection(NomZone() As String, NbElementsSelectionnes As Integer)
  With lbToutesZones
 
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        NbElementsSelectionnes = NbElementsSelectionnes + 1
      End If
    Next i
 
    If NbElementsSelectionnes <> 0 Then
      ReDim NomZone(0 To NbElementsSelectionnes - 1)
      j = 0
      For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
          NomZone(j) = .List(i)
          j = j + 1
        End If
      Next i
    End If
 
  End With
End Function

puis dans un second je passe au traitement

Un très grand merci à tous