macro changet format papier

[breeze]

Bonjour,
J'ai un document que je peux imprimer en partie ou en totalité.
Quand la macro déclenche l'impression elle imprime 1 plage ou 2 ou 3 ou 4 ou les 5 plage.
Cependant il n'y a que les 4 premières plage qui entre sur une feuille en format lettre
Je voudrais que l'orsqu'elle imprime les 4 premières plages elle imprime sur du format lettre sinon qu'elle imprime sur du format legal.
Comment faire pour inclure dans ma macro la formule qui fera changer le format?

Merci

 

[job75]

Re : macro changet format papier

Bonsoir breeze,

Normalement ce n'est pas très compliqué de déterminer le nombre N de plages à imprimer.

Mais cela dépend de la configuration de la feuille, et vous êtes donc le seul à pouvoir le faire.

Ensuite il doit suffire d'appliquer cette mise en page :

Worksheets("Sheet1").PageSetup.PaperSize = IIf(N < 5, xlPaperLetter, xlPaperLegal)

A+

 

[Excel-lent]

Re : macro changet format papier

Bonsoir Breeze Fraiche lol,

Voici la(es) macro(s) te permettant de choisir le format d'impression voulu :

Sub FormatImpression()
' Macro enregistrée le 17/12/2011 par Excel-lent
' Macro pour imprimer au Format : Lettre US (215,9 x 279,4mm)

With ActiveSheet.PageSetup
.PaperSize = xlPaperLetter
End With

End Sub

Sub FormatImpression()
' Macro enregistrée le 17/12/2011 par Excel-lent
' Macro pour imprimer au Format : Tabloïd

With ActiveSheet.PageSetup
.PaperSize = xlPaperTabloid
End With

End Sub

Sub FormatImpression()
' Macro enregistrée le 17/12/2011 par Excel-lent
' Macro pour imprimer au Format : Legal US

With ActiveSheet.PageSetup
.PaperSize = xlPaperLegal
End With

End Sub

Sub FormatImpression()
' Macro enregistrée le 17/12/2011 par Excel-lent
' Macro pour imprimer au Format : A3

With ActiveSheet.PageSetup
.PaperSize = xlPaperA3
End With

End Sub

Sub FormatImpression()
' Macro enregistrée le 17/12/2011 par Excel-lent
' Macro pour imprimer au Format : A4

With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
End With

End Sub

Sub FormatImpression()
' Macro enregistrée le 17/12/2011 par Excel-lent
' Macro pour imprimer au Format : A5

With ActiveSheet.PageSetup
.PaperSize = xlPaperA5
End With

End Sub

Bon choix et bonne fin de soirée

 

[breeze]

Re : macro changet format papier

Bonjour,
J'utilise cette macro
ActiveWindow.Panes(2).VisibleRange.Resize([q14], 12).PrintOut
Elle fonctionne très bien et le Q14 me dit le nombre de plage à imprimer.
La macro de Job75 me conviendrais mais comment faire pour la rentrer dans la mienne

Merci

 

[Staple1600]

Re : macro changet format papier

Bonsoir à tous

La macro de Excel-lent (avec un petit plus bien utile)
(permet de profiter de l'autocompletion de VBA)

(Cela permet de n'avoir qu'une seule macro et de voir défiler les formats possible 😉 )

 

[breeze]

Re : macro changet format papier

C'est bien mais si je veux garder cette macro
ActiveWindow.Panes(2).VisibleRange.Resize([q14], 12).PrintOut

et ajouter celle de Job75
comment l'ajouter à la mienne ?

merci

 

[breeze]

Re : macro changet format papier

Rebonjour à tous,
Je ne peux pas croire que personne a la réponse à ma question.

A partir de ma macro suivante :
ActiveWindow.Panes(2).VisibleRange.Resize([q14], 12).PrintOut

peut on inclure une formule qui dira: si q13 = 5 choisi le format légal sinon reste en format lettre.

merci

 

[Staple1600]

Re : macro changet format papier

Bonsoir


Yes we can.

avec un IIF
avec un Switch
avec un Choose
avec un Select Case

(au choix)

D'ailleurs job75 te l'a déjà proposer non ?
https://www.excel-downloads.com/threads/macro-changet-format-papier.175022/

Il suffit d'adapter un chouïa. Tu vois comment faire cette adaptation ?

 

[breeze]

Re : macro changet format papier

Non justement je ne sais quoi faire avec cette formule. Est-ce que je la place dans une page ou dans une macro?

Merci

 

[Staple1600]

Re : macro changet format papier

Re


Voici comment on peut faire

Sub a()
Dim PapierBitte As XlPaperSize
With Worksheets(1)
PapierBitte = IIf([Q13] = 5, xlPaperLegal, xlPaperLetter)
.PageSetup.PaperSize = PapierBitte
.PrintPreview '.PrintOut ' pour imprimer
End With
End Sub

PS: J'ai testé avant de poster, cela fonctione

 

[breeze]

Re : macro changet format papier

Salut,¨¸Ca ne marche pas.
Il me l'imprime toujours en 2 feuille format lettre

 

[Staple1600]

Re : macro changet format papier

Re

Relis bien mon message 😉
(et corriges le tien en : "je n'arrive pas à faire fonctionner ce que tu me proposes")


PS: Si on avait une PJ, on pourrait faire nous même des tests

 

[breeze]

Re : macro changet format papier

C'est bien, mais qu'est-cwe que je fais de ma macro?

ActiveWindow.Panes(2).VisibleRange.Resize([q14], 12).PrintOut
J'ai besoin de ce bout de commande

Merci

 

[Staple1600]

Re : macro changet format papier

Re

Combien de fois dois-je écrire ceci ???

PS: Si on avait une PJ, on pourrait faire nous même des tests

Pour être clair, une PJ= une pièce jointe -> Un fichier exemple créé par tes soins.

PS: Tu ne joins pas de PJ pour la même raison qu'ici?

 

[breeze]

Re : macro changet format papier

Mon fichier est de 12 mo il est difficile de l'envoyer

Merci de ta comprehension