Bva et bouton imprimer liste box
Bonjour à tous,
j'ai un bouton pour imprimer une ListeBox , je souhaiterai rajouter un message de confirmation d'impression et qu'il soit imprimé que certaine certaines colonnes, mais je ne sais pas comment rajouter tout ca sur la macro suivante:
Merci de votre aide.
cordialement .
Private Sub CommandButton1_Click()
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
'pour le mode paysage
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
ActiveWorkbook.PrintOut 'impression
ActiveWorkbook.Close False 'suppression du classeur temporaire
Application.ScreenUpdating = TrueBonjour
Pour ta première demande, essaie en ajoutant ces 2 instructions :
Application.ScreenUpdating = False
rep = MsgBox("Vous allez imprimer cette feuille." & Chr(10) & Chr(10) & "Confimer-vous ?", 36)
If rep = 7 Then Exit Sub
Workbooks.Add 'création d'un nouveau classeur temporaire
...Pour le reste, je suis désolé mais je ne comprends pas le sens de la fin de ta phrase...
Bye !
bonjour gmb,
Merci ta solution est parfaite j'ai bien le message,
Pour ma deuxième demande: ma ListBox comporte beaucoup de colonne, je souhaiterai si cela est possible d'imprimer via ce bouton qu'une partie des colonnes mais pas l'intégralité. Par exemple: imprime uniquement les colonne A; C; F; L; P
De façon à avoir sur une seul page les éléments principaux de cette liste box.
Merci
Cordialement
Ce serait plus facile à faire si tu joignais ton fichier...
Bye !