Discussion :

[Maxou_B]

Bonjour,

Je souhaiterais à l'aide de macros, à partir d'un onglet spécifique FIG2015, puis a répéter dans un 2ème onglet FIG2016, 3ème onglet FIG2017, pouvoir définir une zone d'affichage à l'écran de 5 tableaux différents, puis d'en définir le format pour l'impression en A4 paysage pour les tableaux 1 et 5 et en A4 portrait pour les tableaux 2, 3 et 4. Pour faciliter l'accès aux différents tableaux, j'ai pensé à une série de boutons (cellules B15, B16, B17, B18 et B19) qui me permettrait d'accéder aux différents tableaux de la feuille.

Je mets un fichier en exemple et plein de remerciements à la personne qui prendra le temps de consulter et j'espère m'aider à trouver une solution, car avec l'enregistreur de macros, le résultat que j'ai obtenu n'est vraiment pas top !

Avec mes plus cordiales salutations et belle journée.

[patricktoulon]

Bonjour
2 exemples
1 apercu avant impression de la plage A1:D10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub print_la_plage_simple()
    ActiveSheet.Range("A1:d10").PrintPreview
End Sub

2 appercu avant imression de lameme plage en parametrant l'impression (mode paysage,zom,centrage sur la feuille ,ect....)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub print_la_plage_arrangée()
    ActiveSheet.PageSetup.PrintArea = "A1:d10"
    With ActiveSheet.PageSetup
        .CenterHorizontally = True    'centre horizontalement la table au milieu de la feuille a l'impression
        .CenterVertically = True    'centre verticalement  la table au milieu de la feuille a l'impression
        .Orientation = xlLandscape    ' mode paysage
        .PaperSize = xlPaperA4
        .Zoom = 200    'on zomm a 200%
        .FitToPagesWide = 1    'on ajuste a 1 feuille en largeur
        .FitToPagesTall = 1
    End With
    ActiveSheet.PrintPreview
End Sub

pour imprimer directement remplacer "printpreview " par "printout"

je tiens quand meme a dire que l'enregistreur de macro n'est pas la pour rien

re
allez une autre version avec le zoom adapter automatique a la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub print_la_plage_ZOOM_Automatique()
   Dim lezoom As Long
    ActiveSheet.PageSetup.PrintArea = "A1:d10"
    With ActiveSheet.PageSetup
        .CenterHorizontally = True    'centre horizontalement la table au milieu de la feuille a l'impression
        .CenterVertically = True    'centre verticalement  la table au milieu de la feuille a l'impression
        .Orientation = xlLandscape    ' mode paysage
        .PaperSize = xlPaperA4
        lezoom = (100 * (ActiveWindow.VisibleRange.Width / Range("A1:D10").Width)) / 1.5
        .Zoom = Val(lezoom)
        .FitToPagesWide = 1    'on ajuste a 1 feuille en largeur
        .FitToPagesTall = 1
    End With
    ActiveSheet.PrintPreview
End Sub

[Maxou_B]

Rebonjour,

J'ai fait des essais assez concluants et je vous en remercie, mais comment sortir de l'aperçu avant impression, car en fait je n'en ai pas besoin, j'ai juste besoin de définir une zone d'impression et si c'était possible d'afficher le tableau sélectionné à l'écran en haut à gauche ?

Encore merci et belle journée à vous.

@+ Maxou