GADENSEB
XLDnaute Impliqué
Bonjour le Forum,
Je cherche à mettre en page l'onglet du fichier joint
Pour définition :
La page 1 - En portrait : A1:H30
La page 2 a X - En portrait : A31:H137
La page X - En Paysage : A138:T185
La page X a X - En portrait :186:H322
Sachant que les utilisateur peuvent remplir les cellules encadrées et que la taille du texte remplie varie. (est-ce clair ?)
j'ai ce début de code .....
Avez-vous une idée ?
bonne journée
Seb
Je cherche à mettre en page l'onglet du fichier joint
Pour définition :
La page 1 - En portrait : A1:H30
La page 2 a X - En portrait : A31:H137
La page X - En Paysage : A138:T185
La page X a X - En portrait :186:H322
Sachant que les utilisateur peuvent remplir les cellules encadrées et que la taille du texte remplie varie. (est-ce clair ?)
j'ai ce début de code .....
Avez-vous une idée ?
bonne journée
Seb
Code:
Sub IMPRIMER()
'
' IMPRIMER Macro
ActiveSheet.PrintPreview '' ou ActiveSheet.printout[ATTACH]149753[/ATTACH]
ActiveSheet.PageSetup.PrintArea = "A1:H30"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "A31:H137"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "A186:H322"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "A138:T185"
ActiveSheet.PageSetup.Orientation = xlLandscape
End Sub