Récupération choix multiples dans zone de liste

[albert]

bonjour à tous, bonjour forum,
j'ai tenté d'associer un code de récupération de sélection multiple dans listbox, à un bouton...

http://xlbysteph.free.fr/aideinformatique/userform.htm

tous mes essais sont restés vains... (peut-être que le code n'est pas placé au bon endroit ???)

CODE :
Private Sub ListBox1_GotFocus()
ListBox1.MultiSelect = fmMultiSelectExtended
range("D1", cells(ListBox1.ListCount, 4)).Clear
End Sub

Private Sub ListBox1_LostFocus()
j = 1
with ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
cells(j, 4) = .List(i)
.Selected(i) = False
j = j + 1
End If
Next
End with
End Sub


.... merci d'avance

albert

 

[albert]

Re:eureka

http://disciplus.simplex.free.fr/classeursxl/fcdmfs-arrays-listes.zip

 

[jon]

bonjour

c'est juste une question d'implémentation ;-)

Private Sub CommandButton1_Click()
'inscrit les données dans la colonne D
[D1].CurrentRegion.ClearContents
j = 1
With UserForm1.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Cells(j, 4) = .List(i)
.Selected(i) = False
j = j + 1
End If
Next
End With
End Sub

 

[albert]

merci jon ça marche "au poil"

albert