Valeur listbox multiselect

axou91 · 13 Novembre 2014

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 · 13 Novembre 2014

Re : Valeur listbox multiselect

Bonjour

une solution possible:

Code:

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 · 13 Novembre 2014

Re : Valeur listbox multiselect

Nickel ca marche. Merci pour l'aide.

Valeur listbox multiselect

axou91

Guest

Pièces jointes

Paf

XLDnaute Barbatruc

axou91

Guest

Discussions similaires

Valeur listbox multiselect

axou91

Guest

Pièces jointes

Paf

XLDnaute Barbatruc

axou91

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency