Discussion :

[Ania]

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

[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.

[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 :

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

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

[ouskel'n'or]

Code :

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

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é

[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

[ouskel'n'or]

Je voulais juste qu'il teste ça pour moi

Désolé, jemefe, la prochaine fois j'attendrai qu'on en soit à la troisième page

[ouskel'n'or]

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

C'est une question...

[jmfmarques]

Non : toujours 0 (1er index)

[ouskel'n'or]

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

[Ania]

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 :

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
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