Comment repeter l'Inserre un saut de page à chaque lignes Excel

Minolta94 - 5 juin 2014 à 12:30
jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 - 5 juin 2014 à 13:18
Bonjour,
Je souhaite imprimer chacune des lignes de mon tableau par page . J'avais penser à insérer un saut de page ligne par ligne, mais mon tableau est volumineux. Existe t il un moyen de répéter automatiquement cette mise en page ?
Merci

1 réponse

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 344
5 juin 2014 à 13:18
Bonjour,

1 - Ta question concernant une macro ( du VBA) il faut la poster dans la section VBA du forum.... j'ai déplacé ton sujet dans la bonne section.

2 - Bien que normalement on ne donne pas de code à la demande...
voici un exemple de ce que tu peux faire :

Sub Macro1()
Dim Derniere_Ligne As Integer
Derniere_Ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
ActiveWindow.View = xlPageBreakPreview
    For l = 2 To Derniere_Ligne
        Cells(l, 1).Select
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    Next
ActiveWindow.View = xlNormalView
End Sub

0
Rejoignez-nous