Discussion :

[tarmin]

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

[ouskel'n'or]

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 :

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

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

[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...

[ouskel'n'or]

Ma réponse précédente devrait régler ton problème. Fais l'essai

[tarmin]

Petit précision avec le document joint...

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...

[ouskel'n'or]

Montre ton code

[tarmin]

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

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
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

[ouskel'n'or]

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

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

[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.

[dadavyvy]

Et avec l'enregistreur de macro?

Code :

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

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

[tarmin]

Merci à tous pour le coup de main !