Saut de page Excel

Version imprimable

09/11/2006, 07h39
tarmin

Saut de page Excel

Bonjour,

Quelqu'un aurait-il un code permettant de déplacer automatiquement le saut de page vertical après une certaine colonne ?

J'ai essayer d'en enregistrer un mais ça ne fonctionne pas...

Meric d'avance

Sans ton code, difficile de savoir ce que tu veux faire... :(
Bon, je prends l'hypothèse que tu souhaites qu'une plage soit définie comme une page d'impression. Ici, je prends la totalité des cellules renseignées de la feuille de calcul et demande qu'elle apparaisse dans une seule page d'impression. Tu peux, de la même façon, définir ta plage et le nombre de pages en hauteur ou en largeur.
Code:

1 2 3 4 5 6 7 8 9 10 Dim Plage, DernièreLigne, DernièreColonne DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row DernièreColonne = Cells(1,1).SpecialCells(xlCellTypeLastCell).Column Plage = Range(Cells(1, 1), Cells(DernièreLigne, DernièreColonne)).Address With ActiveSheet.PageSetup .PrintArea = Plage .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 End With
Tu dis

09/11/2006, 10h29
tarmin

Merci pour ta réponse.

C'est vrai que j'ai peut-être pas été assez clair.

J'ai un document qui se génére automatiquement sur excel. Je sais combien il me faut de colonne pour l'impression mais par contre il est impossible de savoir combien il y en aura.

Actuellement je n'ai pas de code pour ce qui est de l'impression je vais donc chaque fois dans aperçu des saut de page pour tirer le tirer jusqu'à ma dernière colonne...

Je souhaite automatiser ça...
09/11/2006, 10h30
ouskel'n'or

Ma réponse précédente devrait régler ton problème. Fais l'essai ;)
09/11/2006, 13h15
tarmin

1 pièce(s) jointe(s)

Petit précision avec le document joint... Pièce jointe 6526

Alors avec le code fournie précédement, j'ai réussi à bouger le saut de page qui se trouve entre o et p. Seulement c'est le saut de page entre m et n que je souhaiterai déplacer après o... :?
09/11/2006, 13h46
ouskel'n'or

Montre ton code ;)

C'est le code que tu m'a donné mise à part que j'ai changé la cellule de la dernière colonne...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09.11.2006 par AMQ
'
 
Dim Plage, DernièreLigne, DernièreColonne
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DernièreColonne = Cells(1, 15).Column
    Plage = Range(Cells(1, 1), Cells(DernièreLigne, DernièreColonne)).Address
    With ActiveSheet.PageSetup
        .PrintArea = Plage
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
 
End Sub

09/11/2006, 15h16
ouskel'n'or

Ta dernière colonne est la colonne 16, pas 15 comme tu le mets là

Citation:

DernièreColonne = Cells(1, 15).Column

:furieux:
09/11/2006, 15h39
tarmin

Sur le fichier oui mais je n'ai pas besoin de la colonne 16 à l'impression... Ce qu'il faut c'est que j'ai la colonne 1 à 15 sur la même page.

Et avec l'enregistreur de macro?

Code:

1
2
3
4
 
Set tafeuille.VPageBreaks(2).Location = Range("N1")
' 2 étant le 2ème saut de page vertical
' tu as aussi HPageBreaks(n) pour les sauts de page horizontaux

10/11/2006, 08h07
tarmin

Merci à tous pour le coup de main !