Imaginons un classeur Excel contenant plusieurs dizaines=20
de feuilles de calcul identiques en terme de format.
Ayant d=E9fini une mise en page (marges, en-t=EAte et pied de=20
page) pour la premi=E8re feuille, je voudrais l'appliquer=20
automatiquement =E0 toutes les autres feuilles du m=EAme=20
classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets =E0 vos=20
conseils.
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 Il faut définir la mise en page en mode groupe de travail. Pour cela, sélectionner un à un les onglets en maintenant la touche CTRL enfoncée puis appliquer la MEP. Une fois terminé, clic droit sur un des onglets puis Dissocier les feuilles Cordialement Pascal
"Roberto" a écrit dans le message de news:20ad701c459e7$47c27420$ Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de page) pour la première feuille, je voudrais l'appliquer automatiquement à toutes les autres feuilles du même classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos conseils.
Merci Roberto
Bonjour
Il faut définir la mise en page en mode groupe de travail.
Pour cela, sélectionner un à un les onglets en maintenant la touche CTRL
enfoncée puis appliquer la MEP.
Une fois terminé, clic droit sur un des onglets puis Dissocier les feuilles
Cordialement
Pascal
"Roberto" <roberto@ebuyclub.com> a écrit dans le message de
news:20ad701c459e7$47c27420$a301280a@phx.gbl...
Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines
de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de
page) pour la première feuille, je voudrais l'appliquer
automatiquement à toutes les autres feuilles du même
classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos
conseils.
Bonjour Il faut définir la mise en page en mode groupe de travail. Pour cela, sélectionner un à un les onglets en maintenant la touche CTRL enfoncée puis appliquer la MEP. Une fois terminé, clic droit sur un des onglets puis Dissocier les feuilles Cordialement Pascal
"Roberto" a écrit dans le message de news:20ad701c459e7$47c27420$ Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de page) pour la première feuille, je voudrais l'appliquer automatiquement à toutes les autres feuilles du même classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos conseils.
Merci Roberto
Nicolas B.
Salut,
Petite macro à exécuter lorsque la feuille contenant les formats est sélectionnée : Sub CopierFormats() Cells.Copy For Each sh In Sheets sh.Cells.PasteSpecial xlPasteFormats Next End Sub
A+ -- Nicolas B.
Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de page) pour la première feuille, je voudrais l'appliquer automatiquement à toutes les autres feuilles du même classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos conseils.
Merci Roberto
Salut,
Petite macro à exécuter lorsque la feuille contenant les formats est
sélectionnée :
Sub CopierFormats()
Cells.Copy
For Each sh In Sheets
sh.Cells.PasteSpecial xlPasteFormats
Next
End Sub
A+
--
Nicolas B.
Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines
de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de
page) pour la première feuille, je voudrais l'appliquer
automatiquement à toutes les autres feuilles du même
classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos
conseils.
Petite macro à exécuter lorsque la feuille contenant les formats est sélectionnée : Sub CopierFormats() Cells.Copy For Each sh In Sheets sh.Cells.PasteSpecial xlPasteFormats Next End Sub
A+ -- Nicolas B.
Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de page) pour la première feuille, je voudrais l'appliquer automatiquement à toutes les autres feuilles du même classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos conseils.
Merci Roberto
ChrisV
Bonjour Roberto,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean) ' en précisant les options de mise en page ' que tu as définies pour ta première feuille ' par exemple With ActiveSheet.PageSetup .CenterHeader = "MPFE" .TopMargin = Application.InchesToPoints(x) .BottomMargin = Application.InchesToPoints(y) .Orientation = xlPortrait .PaperSize = xlPaperA4 End With End Sub
ChrisV
"Roberto" a écrit dans le message de news:20ad701c459e7$47c27420$ Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de page) pour la première feuille, je voudrais l'appliquer automatiquement à toutes les autres feuilles du même classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos conseils.
Merci Roberto
Bonjour Roberto,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' en précisant les options de mise en page
' que tu as définies pour ta première feuille
' par exemple
With ActiveSheet.PageSetup
.CenterHeader = "MPFE"
.TopMargin = Application.InchesToPoints(x)
.BottomMargin = Application.InchesToPoints(y)
.Orientation = xlPortrait
.PaperSize = xlPaperA4
End With
End Sub
ChrisV
"Roberto" <roberto@ebuyclub.com> a écrit dans le message de
news:20ad701c459e7$47c27420$a301280a@phx.gbl...
Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines
de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de
page) pour la première feuille, je voudrais l'appliquer
automatiquement à toutes les autres feuilles du même
classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos
conseils.
Private Sub Workbook_BeforePrint(Cancel As Boolean) ' en précisant les options de mise en page ' que tu as définies pour ta première feuille ' par exemple With ActiveSheet.PageSetup .CenterHeader = "MPFE" .TopMargin = Application.InchesToPoints(x) .BottomMargin = Application.InchesToPoints(y) .Orientation = xlPortrait .PaperSize = xlPaperA4 End With End Sub
ChrisV
"Roberto" a écrit dans le message de news:20ad701c459e7$47c27420$ Bonjour,
Imaginons un classeur Excel contenant plusieurs dizaines de feuilles de calcul identiques en terme de format.
Ayant défini une mise en page (marges, en-tête et pied de page) pour la première feuille, je voudrais l'appliquer automatiquement à toutes les autres feuilles du même classeur ce qui me ferait gagner un temps fou.
N'ayant pas trouver comment faire, je m'en remets à vos conseils.
