• Initiateur de la discussion Initiateur de la discussion meteo62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

meteo62

XLDnaute Nouveau
bonjour a tous

dans un userform avec un bouton IMPRIMER TOUS je souhaite utiliser le code ci-dessous mais avec la possibilité de choisir la feuille

code d'origine =

'Impression de la 1ème page en paysage
'-------------------------------------
Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème page
ActiveSheet.PageSetup.PrintArea = "$A$2:$W$48" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression

'Impression de la 2ème page en portrait
'--------------------------------------
Range("A50:T119").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$50:$T$119" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression

Range("A1").Select
End Sub



quel et la commande a mettre pour sélectionner la feuille 2


merci
 
Re : choisir la feuille

Mais c'et pas le but je veux créer un bouton " imprimer tous" qui va me lancer sur chaque Feuille( environ 10) le code ci-dessus pour imprimer la page 1 en paysage et la page 2 de chaque feuille et sans autre manipulation a part le clic sur imprimer tous
 
Re : choisir la feuille

je viens de trouver

Private Sub CommandButton1_Click()

'Feuil 2 ( 1 page en Paysage + 1 en Portrait

'Impression de la 1ème page en paysage
'-------------------------------------
With Sheets("Feuil2").Select
Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème page
ActiveSheet.PageSetup.PrintArea = "$A$2:$W$48" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
End With

'Impression de la 2ème page en portrait
'--------------------------------------
With Sheets("Feuil2").Select
Range("A50:T119").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$50:$T$119" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
End With
Range("A1").Select
End sub

Ma question :

comment faire pour duplique ce code pour les Feuils 2 a 10 sans faire copier/coller
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
163
Réponses
10
Affichages
547
Réponses
11
Affichages
784
Retour