Discussion :

[Opal_m]

Bonjour à tous,

Je developpe actuellement une macro pour transférer des données d'un classeur à l'autre, tout fonctionne parfaitement.
Cependant dans l'optique de soulager mes collaborateurs du mieux que je peux de leur travail, je me posais les questions suivantes :
- Est il possible de régler la mise en page d'une feuille pour que celle-ci tienne sur une page d'elle même (Zoom, zone de selection, marge)
Dans mon cas la page est en impression verticale et tient sur deux pages malheureusement, il faut donc gérer le zoom et la zone d'impression
- Est il possible sur la même feuille d'avoir une impression verticale du première élément puis horizontale du second élément (je souhaite également régler sa mise en page)
J'aimerais également placer le second élément sur une deuxième feuille sans empiéter sur le premier !

Merci d'avance pour vos retours,

[Jean-Philippe André]

Salut,

en utilisant l'enregistreur de macro tu devrais arriver a tes fins


Ce qu'il te faut :
dans ton onglet mise en page => largeur 1 page / hauteur 1 page + determiner la printarea = zone d'impression

[Opal_m]

Merci beaucoup pour le retour rapide !
Et à propos d'imprimer deux éléments vertical et horizontal sur une même page ?
J'ai cherché sur internet en premier reflex et je suis tomber sur ça :

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
16
17
18
19
20
Sub Imprime()
'Impression de la 1ère page en portrait
'--------------------------------------
Range("A1:C6").Select 'définition de la plage de cellules constituant la 1ère page
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$6" '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
 
'Impression de la 2ème page en paysage
'-------------------------------------
Range("A7:I9").Select 'définition de la plage de cellules constituant la 2ème page
ActiveSheet.PageSetup.PrintArea = "$A$7:$I$9" '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
 
Range("A1").Select
 
End Sub

Je vous retournerais le fonctionnement de cette macro ou non, il faut d'abrod que je comprenne comment faire la mise en page de manière cohérente

[Jean-Philippe André]

Pour les pages en largeur, et hauteur :

Code :

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

1
2
3
4
With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With

[Opal_m]

Merci pour le retour,

Je vais m'y atteler dans peu de temps, je retape une macro' pas sauvegardée ... je vous tiens au courant dans l'après midi mais je pense avoir les elements qu'il me manquait ! merci

[Opal_m]

Bonjour à tous,

J'ai finalement eu le temps de faire une tentative, la macro marche en pas à pas mais bug en execution automatique avec bouton, la macro associé à celle ci permet de créer un bouton dans un nouveau classeur renvoyant directement à la macro de notre classeur mère (c'est donc la macro 3)

La macro fonctionne donc en pas à pas, mais en bouton click il y a un problème au niveau de la mise en page verticale ou horizontale. Je ne sais pas vraiment pourquoi, aussi j'aimerais camoufler les 6 dernières lignes si celles-ci sont toute vides
Pour expliquer rapidement pourquoi il y a des derlignes, c'est simplement car les lignes sont variables au niveau de la liste a droite et du texte en bas a gauche.
Le vrai problème et le sens de la page qui s'execute mal sur commande mais pas en pas à pas, je comprends pas vraiment si quelqu'un peut m'éclairer !

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub Impression()
Dim BLOUP As Boolean
Dim BLOU As Boolean
 
'Impression de la 1ère page en portrait
'--------------------------------------
ActiveSheet.Select
 
Select Case MsgBox("Souhaitez vous imprimer le descriptif ?", vbYesNo, "Descriptif")
    Case vbYes
        BLOUP = True
    Case vbNo
        BLOUP = False
End Select
 
If BLOUP = True Then
DerRows1 = Range("C65536").End(xlUp).Row
'MsgBox DerRows1
DerRows1 = DerRows1 + 2
 
Range(Cells(1, 1), Cells(DerRows1, 5)).Select 'définition de la plage de cellules constituant la 1ère page5
ActiveSheet.PageSetup.PrintArea = "$B$2:$E$" & DerRows1 'définition de la zone d'impression
Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .LeftMargin = Application.InchesToPoints(0.2)
        .RightMargin = Application.InchesToPoints(0.2)
        .TopMargin = Application.InchesToPoints(0.2)
        .BottomMargin = Application.InchesToPoints(0.2)
        .HeaderMargin = Application.InchesToPoints(0.2)
        .FooterMargin = Application.InchesToPoints(0.2)
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
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 If
 
 
'Impression de la 2ème page en paysage
'-------------------------------------
Select Case MsgBox("Souhaitez vous imprimer la liste ?", vbYesNo, "Liste")
    Case vbYes
    BLOU = vbTrue
    Case vbNo
    BLOU = vbFalse
End Select
 
If BLOU = True Then
 
ActiveSheet.Select
 
DerRows2 = Range("H65536").End(xlUp).Row
'MsgBox DerRows2
Range(Cells(2, 8), Cells(DerRows2 + 1, 30)).Select 'définition de la plage de cellules constituant la 2ème page
ActiveSheet.PageSetup.PrintArea = "$H$2:$AC$" & DerRows2 'définition de la zone d'impression
With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .LeftMargin = Application.InchesToPoints(0.2)
        .RightMargin = Application.InchesToPoints(0.2)
        .TopMargin = Application.InchesToPoints(0.2)
        .BottomMargin = Application.InchesToPoints(0.2)
        .HeaderMargin = Application.InchesToPoints(0.2)
        .FooterMargin = Application.InchesToPoints(0.2)
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With
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 If
 
End Sub

Merci d'avance à tous,

[Jean-Philippe André]

SAlut,

pour les 6 derniere lignes, c'est pas juste une histoire de printearea a mettre a jour ?

Si ton utilsiation clique 2 fois sur OUI => PB

Ce que je crois voir dans ton code, c'est que tu as 2 zones d'impression, donc forcement, la deuxieme partie du code vient ecraser la premiere partie.

Donc soit tu pars sur 2 pages differentes, soit tu lances une impression juste apres avoir fait la mise en page avant de l'ecraser.

[Opal_m]

Salut ! Je n'ai pas vraiment compris ce que tu as dis et si ça a un rapport avec le pas à pas ou non, le programme serait trop rapide et écraserait l'ancienne zone avant que celle-ci ne soit enregistrée ?
Sinon merci de ta réponse malgré tout, ma solution à été de créer deux boutons en séparant la macro en deux, moins pratique mais plus fonctionnel.
Je cherche un truc qui rendrait certaine colonnes imprimable (comme un double clique sur une colonne et une ligne) mais ici sur les lignes et les colonnes (pour ne pas avoir une colonne qui mesure 1m de hauteur et 10cm de largeur ce qui est assez peu visuel..)

[Jean-Philippe André]

Pour simplifier, voila ce que fait ton code

Code :

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

1
2
3
4
5
6
Sub Piou()
'Question 1
'Mise en forme 1
'Question 2
'Mise en forme 2
End Sub

Du coup, si tu clique sur oui aux deux questions posees, seule la mise en forme 2 sera gardee.

Si tu veux que la premiere soit gardee aumoment de l'impression, il faudrait faire evoluer ton code pour avoir ce decoupage

Code :

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

1
2
3
4
5
6
7
8
Sub Piou2()
'Question 1
'Mise en forme 1
'Impression avec PrintOut
'Question 2
'Mise en forme 2
'mpression avec PrintOut egalement
End Sub