Bonsoir le fil,

Je souhaiterai ajouter au code ci-dessous, une fonction "code" pour imprimer les feuilles masquées.
Si vous pouviez m'aider, ce serait cool.
Merci par avance.

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
Private Sub imprimer_Click()
Dim i As Integer
UserForm1.Hide
 
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
    Exit Sub
Else
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then Sheets(.List(i)).PrintOut copies:=TextBox1.Value
        Next
    End With
    UserForm1.Show
End If
End Sub