MaximeRoth
XLDnaute Junior
Bonjour,
Je souhaite imprimer le contenu d'une ListBox présente sur un USF.
J'ai trouvé ceci:
Cependant lors de l'exécution j'ai un message d'erreur : " Erreur 424 : Objet Requis ".
Ma ListBox s'appelle bien ListBox 1.
Pour info la listbox est alimentée par une recherche en cascade, j'ai 7 colonnes en entrées qui me permettent un tri selon 7 critères.
Je ne peux malheureusement pas partager le fichier car le contenu des tableaux est confidentiel. (Si besoin je m'appliquerai à faire un ménage =D)
A+
Max
Je souhaite imprimer le contenu d'une ListBox présente sur un USF.
J'ai trouvé ceci:
Code:
Sub Impre()
Dim Tableau() As Variant
Dim i As Integer
Dim j As Byte
Application.ScreenUpdating = False
Workbooks.Add 'création d'un nouveau classeur temporaire
Tableau() = ListBox1.List
j = ListBox1.ColumnCount
i = ListBox1.ListCount
Range("A1:" & Cells(i, j).Address) = Tableau()
'option pour adapter la largeur des colonnes à la taille des données
'ActiveSheet.Range("A1:" & Cells(i, j).Address).EntireColumn.AutoFit
ActiveWorkbook.PrintOut 'impression
ActiveWorkbook.Close False 'suppression du classeur temporaire
Application.ScreenUpdating = True
End Sub
Cependant lors de l'exécution j'ai un message d'erreur : " Erreur 424 : Objet Requis ".
Ma ListBox s'appelle bien ListBox 1.
Pour info la listbox est alimentée par une recherche en cascade, j'ai 7 colonnes en entrées qui me permettent un tri selon 7 critères.
Je ne peux malheureusement pas partager le fichier car le contenu des tableaux est confidentiel. (Si besoin je m'appliquerai à faire un ménage =D)
A+
Max
Dernière édition: