Imprimer le contenu d'un(e) Listbox

[Claudy]

Bonsoir à tous...
Ma question est dans le titre: comment imprimer le contenu de ma lisbox?
Merci d'avance,
Claudy

 

[BOISGONTIER]

Re : Imprimer le contenu d'un(e) Listbox

Bonsoir,

Private Sub B_recup_Click()
  Sheets("Result").Cells.ClearContents
  Sheets("Result").Range("A2").Resize(Me.ListBox1.ListCount, Me.ListBox1.ColumnCount) = Me.ListBox1.List
  Sheets("Result").PrintOut
End Sub

JB