Je voudrais imprimer à la suite, sur une même page, le contenu de plusieurs
onglets. Or je n'arrive à définir de zone d'impression que sur un seul et
même onglet, impossible de faire une union de zones sur des onglets
différents.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Pas possible de faire ça en mode groupe de travail. Une petite macro ? L'exemple ci-dessous va créer une nouvelle feuille dans laquelle on va venir copier les infos de chaque feuille puis imprimer cette feuille. A adapter : Sub DefImp() Dim BidonF As Worksheet, Wsh As Worksheet Set BidonF = Sheets.Add Dim DernLig As Long For Each Wsh In ThisWorkbook.Worksheets DernLig = BidonF.Range("A65536").End(xlUp).Row If Wsh.Name <> BidonF.Name Then _ Wsh.Range("A1:B50").Copy BidonF.Range("A" & DernLig) Next Wsh BidonF.PrintOut Application.DisplayAlerts = False BidonF.Delete Application.DisplayAlerts = True End Sub
Cordialement Pascal
"Gillou" a écrit dans le message de news:
Bonjour,
Je voudrais imprimer à la suite, sur une même page, le contenu de plusieurs
onglets. Or je n'arrive à définir de zone d'impression que sur un seul et même onglet, impossible de faire une union de zones sur des onglets différents.
Quelqu'un a-t-il une idée ? Merci d'avance
Bonjour
Pas possible de faire ça en mode groupe de travail.
Une petite macro ?
L'exemple ci-dessous va créer une nouvelle feuille dans laquelle on va venir
copier les infos de chaque feuille puis imprimer cette feuille.
A adapter :
Sub DefImp()
Dim BidonF As Worksheet, Wsh As Worksheet
Set BidonF = Sheets.Add
Dim DernLig As Long
For Each Wsh In ThisWorkbook.Worksheets
DernLig = BidonF.Range("A65536").End(xlUp).Row
If Wsh.Name <> BidonF.Name Then _
Wsh.Range("A1:B50").Copy BidonF.Range("A" & DernLig)
Next Wsh
BidonF.PrintOut
Application.DisplayAlerts = False
BidonF.Delete
Application.DisplayAlerts = True
End Sub
Cordialement
Pascal
"Gillou" <Gillou@discussions.microsoft.com> a écrit dans le message de
news:754828BF-D43B-43ED-B01F-1165F570FBFD@microsoft.com...
Bonjour,
Je voudrais imprimer à la suite, sur une même page, le contenu de
plusieurs
onglets. Or je n'arrive à définir de zone d'impression que sur un seul et
même onglet, impossible de faire une union de zones sur des onglets
différents.
Bonjour Pas possible de faire ça en mode groupe de travail. Une petite macro ? L'exemple ci-dessous va créer une nouvelle feuille dans laquelle on va venir copier les infos de chaque feuille puis imprimer cette feuille. A adapter : Sub DefImp() Dim BidonF As Worksheet, Wsh As Worksheet Set BidonF = Sheets.Add Dim DernLig As Long For Each Wsh In ThisWorkbook.Worksheets DernLig = BidonF.Range("A65536").End(xlUp).Row If Wsh.Name <> BidonF.Name Then _ Wsh.Range("A1:B50").Copy BidonF.Range("A" & DernLig) Next Wsh BidonF.PrintOut Application.DisplayAlerts = False BidonF.Delete Application.DisplayAlerts = True End Sub
Cordialement Pascal
"Gillou" a écrit dans le message de news:
Bonjour,
Je voudrais imprimer à la suite, sur une même page, le contenu de plusieurs
onglets. Or je n'arrive à définir de zone d'impression que sur un seul et même onglet, impossible de faire une union de zones sur des onglets différents.
