ListBox.selected

[AlexM]

bonjour,

j'ai un userform qui contient une combobox et une listbox
la procédure comboBox_change() modifie rowSource de la listbox.
j'ai mis ma liste en mode fmMultiSelectMulti et je voudrais récupérer les éléments selectionnés de la liste et les mettre ds un array Elts()

j'ai pris le code sur le site de Stephane, mais ca marche pas :
le compilateur met en surbrillance .selected (celui apres UBound) et dit argument non facultatif...

Private Sub OkButton_Click()
Dim I As Integer, J As Integer
Dim Elts()
With Ajout_lot_type.ListBoxElements
For I = 0 To UBound(.Selected, 1)
If .Selected(I) Then
J = J + 1
ReDim Preserve Elts(0 To J)
Elts(J) = .List(I)
Exit For
End If
Next I
End With
Sheets("a_cacher").Range("b15").Value = Elts(0)
End Sub

 

[Ti]

En fait l'argument non facultatif s'applique à la propriété Selected du listbox.
Si tu veux récupérer tous les éléments sélectionnés dans ton listbox, voici une procédure qui devrait convenir :

Private Sub okbutton_Click()
Dim i As Integer, j As Integer
Dim Elts()
With Ajout_lot_type.ListBoxElements
For i = 0 To ListCount - 1
If .Selected(i) Then
ReDim Preserve Elts(j)
Elts(j) = .List(i)
j = j + 1
End If
Next i
End With
Sheets("a_cacher").Range("b15").Value = Elts(0)
End Sub