Valeur listbox multiselect

[axou91]

Bonjour amis macroman,


Je me permet de faire ce post car je n'arrive pas à identifier mon problème aux autre post déjà créé.

Je n'arrive pas à inserer dans la colonne B les multiselection que j'ai coché dans ma listbox.

Quels codes dois je mettre dans le commandbutton de mon userform pour que cela fonctionne.

Il faut que les selections que j'ai coché dans la listbox apparaissent les une à la suite des autres dans la colonne B.

Merci pour votre aide.

Axou

 

[Paf]

Re : Valeur listbox multiselect

Bonjour

une solution possible:

Private Sub CommandButton1_Click()
 Dim DerLig
 DerLig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
 For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        DerLig = DerLig + 1
        Worksheets("Feuil1").Cells(DerLig, 2) = ListBox1.List(i)
    End If
 Next
End Sub

A+

 

[axou91]

Re : Valeur listbox multiselect

Nickel ca marche. Merci pour l'aide.