Bonjour le Forum
Dans ma Userform, j'ai une listbox, je souhaite copier les éléments sélectionnés de cette listbox vers une feuille excel ''Reçu".
J'ai crée un bouton et ça marche, sauf qu'il copie toute la listbox au lieu de copier seulement les éléments selectionnés.
Quelqu'un peut m'aider à rectifier mon code Svp. Merci
Private Sub CommandButton6_Click()
Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("Reçu")
For x = 1 To Me.ListBox1.ListCount
.Cells(x, 5) = Me.ListBox1.List(x - 1, 0)
.Cells(x, 6) = Me.ListBox1.List(x - 1, 1)
.Cells(x, 7) = Me.ListBox1.List(x - 1, 2)
Next x
End With
End Sub