Impression avec userform

[RV]

Bonjour à tous,

Après plusieurs tentatives et grace à la liste, je suis parvenu à créer un userform afin d'imprimer les cellules qui m'intéressent. Je voudrais savoir comment ne pas faire apparaître le bouton Userform créé (à l'impression) et également ne pas avoir à mofifier le sens de la page (portrait ou paysage) en fonction de ce que j'imprime. En clair, je souhaiterai qu'en cliquant sur un bouton, les cellules s'impriment sous un format portrait et en appuyant sur un autre bouton, les imprimer sous un format paysage.
Merci

 

[MrExcel]

ActiveSheet.PageSetup.Orientation = xlLandscape ou xlPortrait

Pour ne pas imprimer le bouton, faut (dé)cocher la case imprimer dans les propriétés du bouton (s'il s'agit d'un Bouton de formulaire, pas un control de la boite à outil).

HTH

 

[RV]

Merci pour ta réponse très rapide mais je ne suis pas assez fort et n'y parviens pas. Peux-tu m'aider.
La formule qui fonctionne pour l'impression est:

Private Sub CommandButton1_Click()

Range('B2:O48').PrintOut
End Sub


A quel endroit dois-je ajouter la tienne:

ActiveSheet.PageSetup.Orientation = xlLandscape ou xlPortrait

Merci

 

[Jam]

Juste avant la ligne avec PrintOut

Et pour faire simple tu crées un autre bouton qui fait la meme chose mais en mode portrait ou inversement.

Bonne soirée

 

[RV]

Superbe. Cela fonctionne et correspond exactement à ce que je recherchais.
Merci à vous deux

 

[Jam]

Heureux de t'avoir aidé 🙂

Par contre je ne suis qu'un seul, juste que j'avais oublié de me connecter lors de ma première réponse.

Bonne nuit