Discussion :

[Chris171717]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chris171717]

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

[Chris171717]

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...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chris171717]

Super ça marche... merci beaucoup