Discussion :

[deus-ex-inferno]

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

[anasecu]

Bonsoir

une fonction "code" pour imprimer les feuilles masquées.

Que cherches-tu comme fonction car les feuilles masquées peuvent être imprimées ?

[deus-ex-inferno]

Re,
Oui d’ailleurs voici un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim copies, Sh As Object, vis%
copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")))
If copies = 0 Then Exit Sub
For Each Sh In Sheets(Array(1, 3))
    vis = Sh.Visible
    Sh.Visible = xlSheetVisible
    Sh.PrintOut copies:=copies
    Sh.Visible = vis 'état initial
Next
End Sub

Mais je vois pas comment l'intégrer dans le code que posté dans le fil.