Recuperer lignes selectionnées d'un Listbox

Bonjour,

J'ai une ListBox et j'aimerais récupérer tous les lignes qui serons sélectionnée et prendre ces lignes et les coller sur une feuille Excel.

Ci-joint un code avec une petite erreur.

Merci de votre aide.

Private Sub CommandButton3_Click()

  Dim txt As String

Dim LigneDestination As Integer
LigneDestination = 1

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) = True Then

txt = ListBox1.List(i)
txt.Copy Sheets("Feuil4").Cells(LigneDestination, 1)
LigneDestination = LigneDestination + 1
End If

Next i

End Sub

Cdlt,

Bonjour,

Ta variable txt, ici, n'est pas utile.

Regarde ce code :

Private Sub CommandButton3_Click()
    Dim LigneDestination As Integer

    LigneDestination = 1
    For i = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(i) = True Then
         With Sheets("Feuil4")
             .Cells(LigneDestination, 1) = ListBox1.List(i)
         End With
         LigneDestination = LigneDestination + 1
      End If
   Next i
End Sub

Merci beaucoup.

Cdlt,