mise en page paysage en vba

Publie ton code...
Sinon,

ActiveSheet.PageSetup.Orientation = xlLandscape

devrait suffire.

effectivement ca fonctionne
Pour le code je voulais pas trop le mettre car je comprennais pas tout et je voulais pas induire d'autre personne en erreur mais de toute facon c'est le code que l'on obtien si on fait un enregistrement de macro
Ca donne ca :

Sub Macro2()

 
    With ActiveSheet.PageSetup

        .PrintTitleRows = ""

        .PrintTitleColumns = ""

    End With

    ActiveSheet.PageSetup.PrintArea = ""

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.787401575)

        .RightMargin = Application.InchesToPoints(0.787401575)

        .TopMargin = Application.InchesToPoints(0.984251969)

        .BottomMargin = Application.InchesToPoints(0.984251969)

        .HeaderMargin = Application.InchesToPoints(0.4921259845)

        .FooterMargin = Application.InchesToPoints(0.4921259845)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintNoComments

        .PrintQuality = 600

        .CenterHorizontally = False

        .CenterVertically = False

        .Orientation = xlLandscape

        .Draft = False

        .PaperSize = xlPaperA4

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = 100

    End With

End Sub

Comme tu peux le voir c'est assez indigeste et tres à s'executer
Voila encore merci

Allez un ptit truc : quand tu valides un écran, toutes les valeurs de tous les champs de l'écran sont enregistrées dans la macro. Alors pour ton changement d'orientation, tu enregistres la manif pour mettre dans un sens et tu recommence pour le mettre dans l'autre sens. Ensuite tu compares les deux versions et tu te rends compte qu'il n'y a qu'une ligne différente. Tu vires alors toutes les lignes identiques. Tu n'oublies pas quand même de garder les WITH. Et tu condenses tout ça. Il reste une seule ligne.

Exemple pour changer l'orientation :

With ActiveSheet.PageSetup

    If .Orientation = xlLandscape Then

        .Orientation = xlPortrait

    Else

        .Orientation = xlLandscape

    End If

End With

Si ça peut aider.