[Résolu]Orientation automatique selon rapport largeur/longueur

[Kiriko]

Bonjour à tous !
Je cherche une macro qui oriente automatiquement la page (pour l'impression):
- En portrait si elle est plus haute que large.
- Ou en paysage si elle est plus large que longue.

Le tout sans toucher les autres propriété de la page (centrage, marges, ajustements).

Merci par avance,

 

[mapomme]

Re : Orientation automatique selon rapport largeur/longueur

Bonkour Kiriko,

1) définir la zone d'impression
2) lancer l'aperçu.

NB: macro erronée (car unités de hauteur et largeur différentes en excel)

=> voir version v3 ici

 

[mapomme]

Re : Orientation automatique selon rapport largeur/longueur

(re)Bonjour Kiriko et bonjour à BrunoM45

La même mais normalement avec des mesures en points (pour la hauteur et pour la largeur)

Sub Apercu()
Dim Larg, Haut, xRg As Range
   'ligne inutile si la zone d'impression est définie par ailleurs
   ActiveSheet.PageSetup.PrintArea = Selection.Address
   
   
   Set xRg = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
   Haut = xRg.Resize(1, 1).Offset(xRg.Rows.count).Top - xRg.Top
   Larg = xRg.Resize(1, 1).Offset(, xRg.Columns.count).Left - xRg.Left
  
 ' Ligne juste pour l'exemple
   MsgBox "Taille Zone (points): Hauteur= " & Haut & ", Largeur= " & Larg
   
   ActiveSheet.PageSetup.Orientation = 1 - (Larg > Haut)
   ActiveSheet.PrintPreview
End Sub

 

[Kiriko]

Re : Orientation automatique selon rapport largeur/longueur

Bonjour ma pomme ! Et bonjour BrunoM45 !
Ton fichier est impeccable, mapomme, comme toujours !
Merci beaucoup !!
Je crée un nouveau post pour une demande liée (définir automatiquement la zone d'impression)...


Merci encore !!

 

[mapomme]

Re : Orientation automatique selon rapport largeur/longueur

Bonjour Kiriko,

Une version dont la procédure "CreerFichier" a été complétée pour définir la zone d'impression et l'orientation de l'impression puis afficher l'aperçu.

 

[Kiriko]

Re : [Résolu]Orientation automatique selon rapport largeur/longueur

Bonjour mapomme !!
Mille merci encore une fois !!
C'est impeccable...
J'ai une dernière question sur ce fichier, mais je vais créer un autre post, (ça concerne la "validation" des horaires, pour vérifier qu'un N° de planning ne soit pas sur 2 courses en même temps)
Encore merci pour tout le temps passé, je ne pensais pas en posant mon 1er post, atteindre un tel niveau de perfection...