choisir la feuille

[meteo62]

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

 

[Compte Supprimé 979]

Re : choisir la feuille

Bonsoir

Mettre dans ton UsF un Combobox avec le nom de toutes les feuilles du classeur
Cela te permet de faire un choix

A+

 

[meteo62]

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

 

[meteo62]

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

 

[JCGL]

Re : choisir la feuille

Bonjour à tous,

Avec ton fichier il serait plus simple de tenter de t'aider.

La "Feuil2" est la feuille 2 en Code.Name ou en .Name ?

A+ à tous

 

[meteo62]

Re : choisir la feuille

Merci au modérateur de supprimer ce post ( cause doublon)

https://www.excel-downloads.com/threads/impression-normal-et-pdf.212910/