Saut de pages

Gipéhel

XLDnaute Occasionnel
Bonjour à tous,

Existe t il un moyen, en VBA, de situer dans une zone d'impression l'endroit où se trouvent les sauts de pages pour tester si les lignes adjacentes sont vides ?
Merci d'avance.
JPL.
 
F

fred

Guest
essayes ca en l'adaptant:

Celle-ci regarde dans la colonne a les cellules vides et a chaque fois qu'elle en rencontre une fait un saut de page!!!


sub saut_page()

Dim c As Range

For Each c In Range('a4:a' & Range('a65536').End(xlUp).Row)

If c.Value = '' Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c


End If


Next c
end sub

bonne chance
 

Discussions similaires

Statistiques des forums

Discussions
312 321
Messages
2 087 265
Membres
103 501
dernier inscrit
talebafia