Discussion :

[LANGAZOU]

Bonjour le forum,

Je voudrais imprimer le contenu de ma listbox. j'ai trouvé le code ci-dessous mais le problème c'est que l’impression n'est pas en mode paysage. En plus je voulais ajouter des titres dans la feuille provisoire avant d’imprimer (Première ligne A1:O1).

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

Merci pour votre réponse.

[PMO2017]

Bonjour,

Peut être comme cela

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
24
25
26
27
28
29
30
31
32
33
34
Sub Impre()
Dim WB As Workbook  '///ajout/modif
Dim S As Worksheet  '///ajout/modif
Dim mesTitres As Variant  '///ajout/modif
Dim Tableau() As Variant
Dim i As Integer
Dim j As Byte
 
Application.ScreenUpdating = False
 
'///ajout/modif
Set WB = Workbooks.Add 'création d'un nouveau classeur temporaire
Set S = WB.Sheets(1)
S.PageSetup.Orientation = xlLandscape   'PAYSAGE
'///
 
Tableau() = ListBox1.List
j = ListBox1.ColumnCount
i = ListBox1.ListCount
S.Range("A1:" & S.Cells(i, j).Address) = Tableau()  '///ajout/modif
 
'option pour adapter la largeur des colonnes à la taille des données
'ActiveSheet.Range("A1:" & Cells(i, j).Address).EntireColumn.AutoFit
 
'///ajout/modif
S.Rows(1).Insert
mesTitres = Array("Titre1", "Titre2", "Titre3", "Titre4", "Titre5", "Titre6", "Titre7")   'à adapter
S.Range(S.Cells(1, 1), S.Cells(1, UBound(mesTitres) + 1)) = mesTitres
WB.PrintOut 'impression
WB.Close False 'suppression du classeur temporaire
'///
 
Application.ScreenUpdating = True
End Sub

[LANGAZOU]

Bonjour,

Merci pour votre réponse.

Juste une petite question:

peut-on rajouter une commande qui empêche la macro de s'activer lorsque la listbox est vide ? j'ai essayé au début de la macro avec la listbox.value <> "" mais ca ne marche pas.

Merci d'avance.

[bboy-eazy]

regarder l'aide vba sur

Code :

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

ListCount

a partir de la le code te viendra tout seul avec un if then

[LANGAZOU]

Bonjour,

Ca marche très bien avec le

Code :

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

If ListBox1.ListCount > 0

Merci et bonne journée.

[patricktoulon]

bonjour
et l'enregistreur de macro il sert a quoi?? hein?????
exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Imprim_plage_en_landscape()
    With ActiveSheet.PageSetup
      .PrintArea = "$A$1:$A$14"
        .CenterHorizontally = True
        .CenterVertically = True
         .Orientation = xlLandscape
                .PaperSize = xlPaperA4
         .Zoom = 100
   End With
End Sub

re
tiens celle la te fait le tout d'un coup
remplace "printPreview" par "printOut" pour imprimer directement

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
Sub Impre()
        Set wbk = ThisWorkbook
    Set maliste = wbk.ActiveSheet.ListBox1.Object
    Application.ScreenUpdating = False
    Workbooks.Add    'création d'un nouveau classeur temporaire
    With ActiveSheet
        .Cells(1, 1).Resize(maliste.ListCount - 1, maliste.columncount - 1) = maliste.List
        .Columns("A:A").AutoFit
        With .PageSetup
            .PrintArea = ActiveSheet.Cells(1, 1).Resize(maliste.ListCount - 1, maliste.columncount - 1).Address
            .CenterHorizontally = True
            .CenterVertically = True
            .Orientation = xlLandscape
            .PaperSize = xlPaperA4
                       .FitToPagesWide = 1
            .FitToPagesTall = 1
 
        End With
    End With
    ActiveWorkbook.PrintPreview    'impression
    ActiveWorkbook.Close False    'suppression du classeur temporaire
    Application.ScreenUpdating = True
End Sub

[clementmarcotte]

Bonjour,

bonjour
et l'enregistreur de macro il sert a quoi?? hein?????

Ce n'est malheureusement pas la première fois. Il s'en sort chaque fois, parce que ce ne sont pas les mêmes qui répondent.

Et puis il y a quelque chose de très révélateur dans sa question :

j'ai trouvé le code ci-dessous