Impression d'une listbox

Bonjour,

je souhaite imprimer le contenu d'une listbox avec le code suivant.
ça fonctionne mais pour chaque ligne de la listbox, il regroupe les infos en une seule cellule dans la feuille temporaire or je voudrai que chaque colonne de la listbox soit dans une colonne différente de la page temporaire...

est-ce possible !?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton2_Click() Dim Tableau() As Variant Dim i As Integer Dim j As Byte   Application.ScreenUpdating = False Sheets.Add 'création d'une nouvelle feuille 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   ActiveSheet.PrintOut 'impression Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True   End Sub

---

Bonjour,
Voici un exemple de code qui écrit tout le contenu du listBox à partir de la cellule D1. (Feuil1 est le CodeName de la feuille)

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() With Feuil1 .Range(.Cells(1, 4), .Cells(Me.ListBox1.ListCount, 4)) = Me.ListBox1.List End With End Sub

---

Ok ça fonctionne mais ça ne me mets pas toutes les colonnes de la listbox... seulement la première... :calim2:

Alors après recherche... j'ai ça :

Mais ça renvoi pas dans la colonne A, ça commence en B et du coup ma dernière colonne de la listbox n'apparaît pas... :roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton2_Click() Dim Tableau() As Variant Dim i As Integer Dim j As Byte   Application.ScreenUpdating = False Sheets.Add 'création d'une nouvelle feuille temporaire   Tableau() = ListBox1.List j = ListBox1.ColumnCount i = ListBox1.ListCount Range(Cells(i, j), Cells(Me.ListBox1.ListCount)) = Tableau()   'option pour adapter la largeur des colonnes à la taille des données ActiveSheet.Range("A1:" & Cells(i, j).Address).EntireColumn.AutoFit   'ActiveSheet.PrintOut 'impression 'Application.DisplayAlerts = False 'ActiveSheet.Delete 'Application.DisplayAlerts = True Application.ScreenUpdating = True   End Sub

---

Bonjour,

Citation:

---

Ok ça fonctionne mais ça ne me mets pas toutes les colonnes de la listbox... seulement la première...

---

J'avais mal lu.
Voici le code. Il faut changer la valeur de sc (1) pour la colonne A

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() ' (sc) = (S)tart(c)olumn - 1ère colonne pour l'écriture ' (nc) = (n)ombre de (c)olonne - Nombre de colonne dans ListBox Dim sc As Integer, nc As Integer nc = Me.ListBox1.ColumnCount: sc = 4 With Feuil1 .Range(.Cells(1, sc), .Cells(Me.ListBox1.ListCount, sc + nc - 1)) = Me.ListBox1.List End With End Sub

---

Super ça marche... merci beaucoup :ccool: