macro pour définir la même zone d'impression pour 12 feuilles sur 13

[libellule85]

Bonsoir le forum,
j'essaie de définir la même zone d'impression pour douze feuilles (les 12 mois de l'année) sur les treize de mon classeur, j'ai donc essayé avec l'enregistreur de macro pour une feuille, ce qui me donne :

Sub Macro3()
    Range("A1:M120").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$120"
End Sub

Mais je ne sais pas comment faire pour appliquer cette zone d'impression à mes douze feuilles...
Merci d'avance si vous pouvez me renseigner.

 

[flyonets44]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Bonsoir
Tu fais une boucle comme ceci
for i =1 to sheets.count
if not sheets(i).name like "le nom de la feuille à exclure"
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$120"
next
Cordialement
Flyonets

 

[libellule85]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Bonsoir flyonets44,
Merci pour ta réponse. Quand je met le nom de ma feuille a exclure il met "Erreur de compilation Attendu : Then ou Go to"

 

[DoubleZero]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Bonjour, libellule85, flyonets44, le Forum,

Peut-être ainsi :

Sub Zone_impression()
For Each ws In Worksheets
If ws.Name <> "TOTO" Then 'TOTO = onglet non concerné
ws.PageSetup.PrintArea = ""
ws.PageSetup.PrintArea = "$A$1:$M$120"
End If
Next
End Sub

A bientôt .

 

[libellule85]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Bonsoir DoubleZéro,
Merci beaucoup pour ta réponse, une simple question ce code je le met où ? Dans le ThisWorkbook ? ou alors dans un module avec un bouton sur chaque feuille ?

 

[DoubleZero]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Re-bonjour ,

Nul besoin de bouton dans chaque onglet. Un bouton unique peut être positionné, par exemple, dans l'onglet non concerné par la macro. Dans ce cas, le code doit être placé dans un module.

 

[DoubleZero]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Re-bonjour,

Afin d'éviter la création d'un bouton, le code suivant peut être inséré dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each ws In Worksheets
If ws.Name <> "TOTO" Then 'TOTO = onglet non concerné
ws.PageSetup.PrintArea = ""
ws.PageSetup.PrintArea = "$A$1:$g$20"
End If
Next
End Sub

 

[libellule85]

[Résolu] macro pour définir la même zone d'impression pour 12 feuilles sur 13

Re-bonjour DoubleZéro,
Je te remercie beaucoup pour ton aide, c'est vraiment sympa.
A bientôt sur le forum.

 

[libellule85]

Re : [Résolu] macro pour définir la même zone d'impression pour 12 feuilles sur 13

J'ai essayé de mettre ton nouveau code dans le ThisWorkbook il me met un message d'erreur "ws variable non définie"

 

[DoubleZero]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Re-bonjour,

Dans ce cas, peut-être ainsi :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "TOTO" Then 'TOTO = onglet non concerné
ws.PageSetup.PrintArea = ""
ws.PageSetup.PrintArea = "$A$1:$g$20"
End If
Next
End Sub

 

[DoubleZero]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Re-bonjour, bonjour, carcharodon-carcharias ,

... il te reste à définir la variable ws , si tu ne sait pas le faire lire ceci ...

Merci beaucoup pour le lien vers ton tuto car j'ai d'ENORMES difficultés dans la déclaration des variables .

Qui plus est, je ne comprends pas la raison pour laquelle la macro fonctionne, chez moi, correctement sans cette déclaration .

A bientôt .

 

[mth]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

bonsoir à tous

Il doit y avoir (et c'est très bien) un "Option Explicit" dans le module de libellule, qui oblige à déclarer les variables, d'où son message

ws variable non défi

si ws n'est pas déclaré.

@ +

mth

 

[libellule85]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

re DoubleZéro, Bonsoir CC, mth,
Je te remercie CC pour ce tuto que je vais lire attentivement....
merci à vous tous pour votre aide vous êtes super et surtout très patient, merci
Bonne soirée

 

[DoubleZero]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Re-re-re-re............ ,

@ libellule85 : merci pour le retour ;

@ mth : merci pour l'explication ;

@ carcharodon-carcharias : merci pour l'optimisme !

bien lire le tuto et tu comprendras

Bon dodo et... à bientôt !

 

[Staple1600]

Re : macro pour définir la même zone d'impression pour 12 feuilles sur 13

Bonsoir le fil

A tester car non testé (pas d'imprimante sous le coude, ni derrière le genou )

Dans ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "toto" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$120"
End If
End Sub