A
AlexM
Guest
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
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