[VBA] Supprimer un saut de page

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Supprimer un saut de page

scaryfan

Apple Inside

:hello:

J'ai un souci avec une macro.
Dans un premier temps, ma macro insère des sauts de page à des endroits précis de ma feuille Excel grâce à ce code :

Code :

ActiveCell.EntireRow.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Cela marche parfaitement... par contre, à la fin de la macro, je dois enlever les sauts de page insérés... et je n'y arrive pas... ou presque.
Le premier saut de page est bien supprimé... par contre, lorsque la macro arrive au second saut de page, j'ai l'"Erreur d'exécution 9 - L'indice n'appartient pas à la sélection".

Voici le code utilisé :

Code :

ActiveCell.EntireRow.Select
ActiveSheet.HPageBreaks(3).Delete

Je pense que c'est le chiffre "3" qui bloque...

Quelqu'un peut m'aider ?

Merci d'avance.

Publicité

nfm

Peut-être faut-il écrire :

ActiveSheet.HPageBreaks.Delete Before:=ActiveCell

pour contourner ce chiffre 3

Message cité 1 fois

scaryfan

Apple Inside

nfm a écrit :

Peut-être faut-il écrire :

ActiveSheet.HPageBreaks.Delete Before:=ActiveCell

pour contourner ce chiffre 3

Finalement, j'utilise la ligne suivante qui supprime tout d'un coup...
Et ensuite, je refais une mise en page... la zone d'impression étant conservée.

Code :

ActiveSheet.ResetAllPageBreaks
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$8"
.PrintTitleColumns = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.47244094488189)
.RightMargin = Application.InchesToPoints(0.236220472440945)
.TopMargin = Application.InchesToPoints(0.433070866141732)
.BottomMargin = Application.InchesToPoints(0.354330708661417)
.HeaderMargin = Application.InchesToPoints(0.15748031496063)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
.PrintErrors = xlPrintErrorsDisplayed
End With

Et ça marche parfaitement...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Supprimer un saut de page

Sujets relatifs
[VB]joindre une commande de mise en page EXCEL à une commande d'export	Mysql supprimer donnes anterieure à une date
emplacement pour une page html dans du flash	[VBA] saisie dans une form
Forcer l'affichage de la page en zoom 100% (Récompense)	Afficher les erreurs PHP sur la page, marche pas
[RESOLU] [VBA excel] copier un fichier d'un repertoire a un autre	Radio continue à chaque changement de page
[ORACLE APPLICATION BUILDER] Creer une page de login	Tracer des graphiques à la chaînes avec Excel/VBA [Résolu]
Plus de sujets relatifs à : [VBA] Supprimer un saut de page

Page générée en 0.056 secondes