Orienter feuille selon taille variable d'un tableau....

[libellule85]

Bonsoir le forum,

Je recherche une macro qui oriente automatiquement le format de la feuille (portrait ou paysage) pour l'impression selon la taille (variable) d'un tableau.

D'avance merci pour votre aide.

 

[job75]

Re : Orienter feuille selon taille variable d'un tableau....

Bonsoir libellule85,

Par exemple, si le tableau est nommé Tableau :

Sub Imprimer()
With [Tableau]
  .Parent.PageSetup.PrintArea = .Address
  .Parent.PageSetup.Orientation = IIf(.Width > .Height, xlLandscape, xlPortrait)
  .Parent.PrintPreview '.PrintOut
End With
End Sub

A+

 

[libellule85]

Re : Orienter feuille selon taille variable d'un tableau....

Bonsoir job75,

Un grand grand merci pour ta réponse, c'est exactement ce que je recherchais.

Bonne soirée

 

[libellule85]

Re : Orienter feuille selon taille variable d'un tableau....

Bonjour Job75, le forum,

Je reviens vers toi car ton code :

Sub Imprimer()
With [Tableau]
  .Parent.PageSetup.PrintArea = .Address
  .Parent.PageSetup.Orientation = IIf(.Width > .Height, xlLandscape, xlPortrait)
  .Parent.PrintPreview '.PrintOut
End With
End Sub

Fonctionne très bien, mais comment faire pour le rendre accessible dans un module aux autres tableaux des autres onglets.

D'avance merci pour ton aide

 

[job75]

Re : Orienter feuille selon taille variable d'un tableau....

Re,

comment faire pour le rendre accessible dans un module aux autres tableaux des autres onglets.

Que voulez-vous donc dire ?

Cette macro peut-être mise n'importe où et être appelée de n'importe où.

S'il y a plusieurs tableaux à imprimer, répéter le même code pour chaque tableau.

A+

 

[libellule85]

Re : Orienter feuille selon taille variable d'un tableau....

Re,

Actuellement j'ai mis ce code dans chaque code de feuille en modifiant le nom : Tableau1, Tableau2 etc...

Je voulais simplement savoir si on pouvait mettre ce code dans un module et de ce fait avoir un seul code pour tous les tableaux !