Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel zone d'impression

zone d'impression

7 réponses
Avatar
Marc
Bonjour,
Je cherche comment définir une zone d'impression identique sur plusieurs
onglets (53) sans avoir à le faire onglet par onglet. ça parait bête mais je
ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Ricky
Bonjour *Marc*


Je ne connais pas la réponse mais peux te proposer de contourner en sélectionnant les 53 onglets puis sélectionner la plage à imprimer et enfin Imprimer / Sélection
C'est pas vraiment ça mais c'est mieux que rien ;)

| Bonjour,
| Je cherche comment définir une zone d'impression identique sur
| plusieurs onglets (53) sans avoir à le faire onglet par onglet. ça
| parait bête mais je ne trouve nul part de solution à ce pb.
| Merci de votre aide

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
Sitting Hoax \(BM\)
bonjour,
active cette macro, elle fera le travail tout seul ;-)
à toi d'adapter la zone à celle que tu désires.
La macro mettra la même zone dans toutes les feuilles du classeur.si tu ne
désires pas qu'elle s'exécute dans certaines feuilles, ici "zaza" tu peux
ajouter l'instruction;
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
Next
End Sub

Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Bonjour,
Je cherche comment définir une zone d'impression identique sur plusieurs
onglets (53) sans avoir à le faire onglet par onglet. ça parait bête mais
je

ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc


Avatar
Marc
merci pour la réponse mais quand je lance la macro j'ai le message d'erruer
suivant:" erreur d'exécution 1004: la méthode select de la classe worksheet a
échoué" ... je ne sais pas quoi faire !!!
j'espère que tu auras une solution , ça semblait être pile poile ce que je
voulais
@+


bonjour,
active cette macro, elle fera le travail tout seul ;-)
à toi d'adapter la zone à celle que tu désires.
La macro mettra la même zone dans toutes les feuilles du classeur.si tu ne
désires pas qu'elle s'exécute dans certaines feuilles, ici "zaza" tu peux
ajouter l'instruction;
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
Next
End Sub

Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Bonjour,
Je cherche comment définir une zone d'impression identique sur plusieurs
onglets (53) sans avoir à le faire onglet par onglet. ça parait bête mais
je

ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc







Avatar
Sitting Hoax \(BM\)
aurais tu une ou des feuilles protégées ou bien masquées ?
En ce cas, Workheets(i).UnProtect
ou
Workheets(i).Visible=True
Amicalement
Sitting Hoax
"Marc" a écrit dans le message de
news:
merci pour la réponse mais quand je lance la macro j'ai le message
d'erruer

suivant:" erreur d'exécution 1004: la méthode select de la classe
worksheet a

échoué" ... je ne sais pas quoi faire !!!
j'espère que tu auras une solution , ça semblait être pile poile ce que je
voulais
@+


bonjour,
active cette macro, elle fera le travail tout seul ;-)
à toi d'adapter la zone à celle que tu désires.
La macro mettra la même zone dans toutes les feuilles du classeur.si tu
ne


désires pas qu'elle s'exécute dans certaines feuilles, ici "zaza" tu
peux


ajouter l'instruction;
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
Next
End Sub

Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Bonjour,
Je cherche comment définir une zone d'impression identique sur
plusieurs



onglets (53) sans avoir à le faire onglet par onglet. ça parait bête
mais



je
ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc









Avatar
Marc
Salut,
oui j'ai des feuilles protégés et masquées, je n'arrive pas à insérer
correctement ces bouts de code en plus ... je suis néophyte !!!
merci de ton aide
Marc


aurais tu une ou des feuilles protégées ou bien masquées ?
En ce cas, Workheets(i).UnProtect
ou
Workheets(i).Visible=True
Amicalement
Sitting Hoax
"Marc" a écrit dans le message de
news:
merci pour la réponse mais quand je lance la macro j'ai le message
d'erruer

suivant:" erreur d'exécution 1004: la méthode select de la classe
worksheet a

échoué" ... je ne sais pas quoi faire !!!
j'espère que tu auras une solution , ça semblait être pile poile ce que je
voulais
@+


bonjour,
active cette macro, elle fera le travail tout seul ;-)
à toi d'adapter la zone à celle que tu désires.
La macro mettra la même zone dans toutes les feuilles du classeur.si tu
ne


désires pas qu'elle s'exécute dans certaines feuilles, ici "zaza" tu
peux


ajouter l'instruction;
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
Next
End Sub

Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Bonjour,
Je cherche comment définir une zone d'impression identique sur
plusieurs



onglets (53) sans avoir à le faire onglet par onglet. ça parait bête
mais



je
ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc














Avatar
Sitting Hoax \(BM\)
Excuse le retard, mais tu sais ce que c'est, la sieste avant tout;-)
Voici donc ce qu'on peut faire.
En espérant que tu n'as pas mis un mot de passe différent dans chaque
feuille, cette macro rend visible les feuilles masquées, puis crée la zone,
puis rend invisible les feuilles qui l'étaient déjà, au besoin les déprotège
et les reprotège (sans mot de passe)
en espérant n'avoir pas oublié de détail, tel l'existence se mots de passe
différents, auquel cas, il vaudrait mieux les enlever à la main.
'***********************
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
If Worksheets(i).Visible = False Then
Worksheets(i).Visible = True
Worksheets(i).Select
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
ActiveSheet.Protect
GoTo suite
End If
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
Worksheets(i).Visible = False
GoTo suite
End If
Worksheets(i).Select
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
ActiveSheet.Protect
GoTo suite
End If
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
suite:
Next
End Sub
'******************************
Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Salut,
oui j'ai des feuilles protégés et masquées, je n'arrive pas à insérer
correctement ces bouts de code en plus ... je suis néophyte !!!
merci de ton aide
Marc


aurais tu une ou des feuilles protégées ou bien masquées ?
En ce cas, Workheets(i).UnProtect
ou
Workheets(i).Visible=True
Amicalement
Sitting Hoax
"Marc" a écrit dans le message de
news:
merci pour la réponse mais quand je lance la macro j'ai le message
d'erruer

suivant:" erreur d'exécution 1004: la méthode select de la classe
worksheet a

échoué" ... je ne sais pas quoi faire !!!
j'espère que tu auras une solution , ça semblait être pile poile ce
que je



voulais
@+


bonjour,
active cette macro, elle fera le travail tout seul ;-)
à toi d'adapter la zone à celle que tu désires.
La macro mettra la même zone dans toutes les feuilles du classeur.si
tu




ne
désires pas qu'elle s'exécute dans certaines feuilles, ici "zaza" tu
peux


ajouter l'instruction;
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
Next
End Sub

Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Bonjour,
Je cherche comment définir une zone d'impression identique sur
plusieurs



onglets (53) sans avoir à le faire onglet par onglet. ça parait
bête





mais
je
ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc
















Avatar
Marc
C génial un grand merci
et tu as tt bien de faire la sieste
@+
marc


Excuse le retard, mais tu sais ce que c'est, la sieste avant tout;-)
Voici donc ce qu'on peut faire.
En espérant que tu n'as pas mis un mot de passe différent dans chaque
feuille, cette macro rend visible les feuilles masquées, puis crée la zone,
puis rend invisible les feuilles qui l'étaient déjà, au besoin les déprotège
et les reprotège (sans mot de passe)
en espérant n'avoir pas oublié de détail, tel l'existence se mots de passe
différents, auquel cas, il vaudrait mieux les enlever à la main.
'***********************
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
If Worksheets(i).Visible = False Then
Worksheets(i).Visible = True
Worksheets(i).Select
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
ActiveSheet.Protect
GoTo suite
End If
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
Worksheets(i).Visible = False
GoTo suite
End If
Worksheets(i).Select
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
ActiveSheet.Protect
GoTo suite
End If
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
suite:
Next
End Sub
'******************************
Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Salut,
oui j'ai des feuilles protégés et masquées, je n'arrive pas à insérer
correctement ces bouts de code en plus ... je suis néophyte !!!
merci de ton aide
Marc


aurais tu une ou des feuilles protégées ou bien masquées ?
En ce cas, Workheets(i).UnProtect
ou
Workheets(i).Visible=True
Amicalement
Sitting Hoax
"Marc" a écrit dans le message de
news:
merci pour la réponse mais quand je lance la macro j'ai le message
d'erruer

suivant:" erreur d'exécution 1004: la méthode select de la classe
worksheet a

échoué" ... je ne sais pas quoi faire !!!
j'espère que tu auras une solution , ça semblait être pile poile ce
que je



voulais
@+


bonjour,
active cette macro, elle fera le travail tout seul ;-)
à toi d'adapter la zone à celle que tu désires.
La macro mettra la même zone dans toutes les feuilles du classeur.si
tu




ne
désires pas qu'elle s'exécute dans certaines feuilles, ici "zaza" tu
peux


ajouter l'instruction;
Sub zone()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "zaza" Then
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$D$13"
End If
Next
End Sub

Amicalement
Sitting Hoax

"Marc" a écrit dans le message de
news:
Bonjour,
Je cherche comment définir une zone d'impression identique sur
plusieurs



onglets (53) sans avoir à le faire onglet par onglet. ça parait
bête





mais
je
ne trouve nul part de solution à ce pb.
Merci de votre aide
--
Marc