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