Choix pour impression

[Rop]

Bonjour à tous
J'ai besoin d'aide, je désire imprimer une sélection de cellules à l'aide d'un choix qui se trouve sur une autre feuille (voir exemple ci-joint). Déroulement souhaité : En cliquant sur le bouton Impression de la feuille "impression" je désire imprimer la plage de cellule A1 : D25 de la feuille A ou B. Le choix de la feuille à imprimer dépend de la cellule A1 de la feuille "Choix". Si la cellule A1=1 j'imprime la plage de la feuille A ou si la cellule A1=2 j'imprime la plage de la feuille B Merci d'avance pour votre aide.

 

[DIGGERJACK]

Re : Choix pour impression

Bonjour Rop

Voici ton fichier modifié en utilisant l'enregistreur de macro

A te lire pour savoir si cela correspond à ton attente

Bonne journée

 

[Roland_M]

Re : Choix pour impression

bonjour

ces quelques fonctions devraient t'éclairer !

Sub ImpressionApercu() 'ceci ouvre direct aperçu pour imprime
ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address' <<< voir pour le champ cell.haut.gauche
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Sub ImpressionLPT() 'ceci ouvre la boite de dialog imprimante
Feuil$ = "Feuil1" '<<<<<< nom de la feuille
Rang$ = "A1:B10"
LPTZoneImpression$ = Sheets(Feuil$).Range(Rang$) '<<<<<< range de données
LPTOrientationPage = xlPortrait '<<<<<< ou xlLandscape (paysage)
LPTSautDePage = 0 '<<<<<< ou 1 pour autorisation des sauts pages
MsgEntete$ = "bonjour" '<<<<<< voir avec message en entête ou pas =""
' init...
InitImprimante Feuil$, MsgEntete$, LPTZoneImpression$, LPTOrientationPage, LPTSautDePage
' boite de dialogue
Application.Dialogs(xlDialogPrint).Show
End Sub

Sub InitImprimante(Feuil$, MsgEntete$, LPTZoneImpression$, LPTOrientationPage, LPTSautDePage)
EspacH = 0: If MsgEntete$ > "" Then EspacH = 1
With Sheets(Feuil$).PageSetup
    .Zoom = False 'pas true sinon FitToPagesTall invalide
  If LPTSautDePage Then
    .FitToPagesTall = False 'permet le saut de page si trop haut
  Else
    .FitToPagesTall = 1 'impose sur la hauteur de la page
  End If
    .FitToPagesWide = 1 'impose sur la largeur de la page(toujours)
    .Orientation = LPTOrientationPage
    .CenterHorizontally = False
    .CenterVertically = False
    If LPTZoneImpression$ > "" Then .PrintArea = LPTZoneImpression$ 'sinon page entière
    .LeftHeader = MsgEntete$
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .TopMargin = Application.CentimetersToPoints(EspacH)
    .LeftMargin = Application.InchesToPoints(0)'<<< les (0) au choix !?(ici pas de marge)
    .RightMargin = Application.InchesToPoints(0)
    .HeaderMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
End With
End Sub

 

[Rop]

Merci à tous

Bonjour Diggerjack
Une solution simple comme je les aimes.
Je vais l'implanter dans mon classeur.
Merci Bon weekend