Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel saut de page par vba

saut de page par vba

2 réponses
Avatar
lanonima
bonjour ;
comment faire saut de page apr=E8s derni=E8re ligne vide
merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Exemple à adapter :
Sub SautdePage()
adr = Worksheets("Feuil1").Range("b65536").End(xlUp)(2).Address
Worksheets("Feuil1").HPageBreaks.Add before:=Range(adr)
End Sub
Cordialement
Pascal

"lanonima" a écrit dans le message de
news: 0ae301c50b6b$df5939a0$
bonjour ;
comment faire saut de page après dernière ligne vide
merci
Avatar
FxM
bonjour ;
comment faire saut de page après dernière ligne vide
merci


Bonjour,

Je ne saisis pas bien la nécessité d'un saut de page derrière la
dernière ligne vide.
Si c'est bien la dernière, Excel est suffisamment intelligent pour ne
plus rien imprimer après. Dans le cas contraire, ce n'est pas la
dernière ligne et/ou il y a autre chose derrière. Bref, passons ...

A la mimine : insertion | saut de page


En VBA : l'enregistreur de macro m'a soufflé :
Sub Macro1()
Range("D18").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:¬tiveCell
End Sub

@+
FxM