exportation sélection listbox

[aeryne]

Bonjour
J'ai un petit souci pour un userform que je suis en train de monter.
je veux sélectionner des choix dans une listbox qui ensuite m'envoie ces choix dans certaines cellules.
J'ai essayé de mon coté. la solution n'est pas idéale et il y a un bug qui n’empêche pas l'action.
Merci de vos conseils et de votre aide

 

[camarchepas]

Re : exportation sélection listbox

Bonjour ,

A modifier comme ceci

Private Sub CommandButton1_Click()


 Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
        End If
    Next i
    
Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("Feuil2")
For x = 1 To Me.ListBox2.ListCount
.Cells(2, 1 + x) = ListBox2.List(x - 1, 0)
Next x
End With
    
UserForm15.Hide
Unload UserForm15
    
End Sub

 

[aeryne]

Re : exportation sélection listbox

super merci
j'ai passé tellment de temps que je ne voyais plus l'erreur