Exporter des données

Question

Voila je débute sur ce genre de forum mais la je bloque vraiment, voici mon problème. J'ai un userform partager en deux parties une pour alimenter, modifier supprimer une base de donnée puis une autre pour faire un recherche multicritère avec une liste box qui m’affiche les résultats. J'ai un bouton qui me sert a exporter la ligne sélectionné dans cette même listbox grâce a ce code. Private Sub bouttonexport_Click() Dim i As Integer Dim nb As Integer Dim ligne As Integer nb = Me.ListBox1.ListCount ligne = Feuil10.Cells(Rows.Count, 1).End(xlUp).Row + 1 'cherche la dernier ligne pleine For i = 0 To nb If Me.ListBox1.Selected(i) = True Then With Worksheets("export") .Cells(ligne, 1) = Me.ListBox1.List(i) .Cells(ligne, 2) = Me.ListBox1.List(i, 1) .Cells(ligne, 3) = Me.ListBox1.List(i, 2) .Cells(ligne, 4) = Me.ListBox1.List(i, 3) .Cells(ligne, 5) = Me.ListBox1.List(i, 4) .Cells(ligne, 6) = Me.ListBox1.List(i, 5) .Cells(ligne, 7) = Me.ListBox1.List(i, 6) .Cells(ligne, 8) = Me.ListBox1.List(i, 7) .Cells(ligne, 9) = Me.ListBox1.List(i, 8) .Cells(ligne, 10) = Me.ListBox1.List(i, 9) .Cells(ligne, 11) = Me.ListBox1.List(i, 10) .Cells(ligne, 12) = Me.ListBox1.List(i, 11) End With ligne = ligne + 1 End If Next i End Sub Mon probleme est que je doit selectionner une ligne par une ligne, Comment exporter tout le resultat de ma listbox? Merci d'avance...

xorsankukai · Answer

Bonsoir gonzo , le forum, Regardes la réponse de MFerrand ici: https://forum.excel-pratique.com/viewtopic.php?t=98269 Bonne soirée...