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,