XL 2013 Impression des feuilles listées dans une colonne

cp4

XLDnaute Barbatruc

• 18 Septembre 2021

• #2

Bonjour,

un essai

VB:

Sub imprimer()
    Dim c As Range, Tf()
    For Each c In Range("tableau1[Liste]").SpecialCells(xlCellTypeVisible)
        ReDim Preserve Tf(n)
        Tf(n) = c
        n = n + 1
    Next c
    
    For i = LBound(Tf) To UBound(Tf)
        Sheets(Tf(i)).PrintOut
    Next i
End Sub

Bonne journée.

 

Vote positif 0 Vote négatif

Solution

L

Leguyl

XLDnaute Occasionnel

• 20 Septembre 2021

• #3

Bonjour cp4,

Merci, je teste immédiatement.

 

Vote positif 0 Vote négatif

L

Leguyl

XLDnaute Occasionnel

• 20 Septembre 2021

• #4

Ça marche, encore merci à toi cp4. 👍

Est-il possible d'ouvrir automatiquement la boîte de dialogue d'impression avant de commencer celle-ci afin de sélectionner l'imprimante qui sera utilisée ?

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 20 Septembre 2021

• #5

Bonjour le forum
Bonjour Leguyl, bonjour cp4

Après :

VB:

Dim c As Range, Tf()

Tu tapes :

Code:

Application.Dialogs(xlDialogPrinterSetup).Show
MsgBox "Imprimante Sélectionnée : " & Application.ActivePrinter

Bonne après-midi à toutes & à tous
@+ Eric

 

Vote positif 0 Vote négatif

L

Leguyl

XLDnaute Occasionnel

• 20 Septembre 2021

• #6

Bonjour Eric, grand merci à toi également👍

@+
Leguyl

 

Vote positif 0 Vote négatif