zone d'impression identique sur plus feuilles

[cycou]

Bonjour

Je recherche une manipulation simple pour pouvoir faire en une seul fois ma zone d'impression sur plusieurs feuilles.

Voilà j'ai 15 feuilles avec le même tableau je recherche comment faire simplement la même zone d'impression, marge, orientation.

Je sais le faire pour une feuille mais pas pour 15 en une fois

Merci

Cordialement

 

[job75]

Re : zone d'impression identique sur plus feuilles

Bonjour cycou,

En sélectionnant simultanément (touche Ctrl enfoncée) les 15 feuilles on crée un Groupe de travail.

Si l'on fait alors une Mise en page (marges, Orientation) sur la feuille active celle-ci est répercutée sur les 15 feuilles.

Mais il n'en est pas de même pour la zone d'impression.

Alors voici ce que vous devez faire :

1) Allez dans VBA (Alt+F11) et collez dans ThisWorkbook cette macro :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim f As Object
Set f = ActiveWindow.SelectedSheets
If f.Count = 15 Then
  For Each f In f
    f.PageSetup.PrintArea = Target.Address 'définit la zone d'impression
  Next
End If
End Sub

2) Touche Ctrl enfoncée, cliquez sur les onglets des 15 feuilles.

3) Dans la feuille active sélectionnez la zone d'impression désirée : la macro se déclenche.

4) Onglet "Mise en page" et définissez les marges et l'orientation.

A+

 

[DoubleZero]

Re : zone d'impression identique sur plus feuilles

Bonjour, cycou, job75 😀, le Forum,

N'étant pas à une ânerie 🙄 près, je propose une autre "recette" en pièce jointe (le nombre de lignes et de colonnes peut varier... selon les onglets).

A bientôt 🙂

 

[DoubleZero]

Re : zone d'impression identique sur plus feuilles

Bonjour, cycou, job75 😀, le Forum,

...N'étant pas à une ânerie 🙄 près...

Il est évident que je fais allusion à bibi 😱 !

A bientôt 🙂

 

[cycou]

Re : zone d'impression identique sur plus feuilles

Merci Beaucoup Job 75 et DoubleZero cela marche vraiment bien

Cordialement
Bonne journée à vs

 

[job75]

Re : zone d'impression identique sur plus feuilles

Bonjour cycou, DoubleZero 🙂

Notez que pour sélectionner plusieurs onglets d'un coup on peut utiliser la touche Maj (Shift).

Dans le fichier joint les onglets du Groupe de travail se colorent en rouge pour être visualisés :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim f As Object
Set f = ActiveWindow.SelectedSheets
If f.Count > 1 And Target.Count > 1 Then
  For Each f In f
    f.PageSetup.PrintArea = Target.Address 'définit la zone d'impression
    f.Tab.ColorIndex = 3 'onglets rouge
  Next
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim f As Object
'---Effacement de la couleur des onglets---
For Each f In Sheets
  f.Tab.ColorIndex = xlNone
Next
End Sub

A+