Impossible d'inserer un saut de page

**fikou** · 11/12/2023, 16h10

Bonjour.
Je n'arrive pas à insérer un saut de page.

Je remplis une feuille que je sert comme matrice avant de la copier dans un nouveau classeur.
Je remplis cette "matrice" à partir de données d'une autre feuille.

J'aimerais insérer un saut de page après chaque rubrique (5 rubriques)

Avec ces codes j'ai un message l'objet range à échoué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("MatriceFact").Rows(iLigneC50).PageBreak = xlPageBreakManual

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wksMatriceFact..Rows(iLigneC50).PageBreak = xlPageBreakManual

J'ai essayé de modifier le numéro de ligne rin n'y fait

J'ai aussi essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wksMatriceFact.Range("A" & iLigneC50 & ":D" & iLigneC50).PageBreak = xlPageBreakManual

Ca ne plante pas mais il ne se passe rien.
Dans prévisualisation d'impression je n'ai qu'une page.

Merci d'avance
FikoU

**Franc** · 11/12/2023, 16h36

Bonjour, je viens de tester avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("A25").PageBreak = xlPageBreakManual

et cela fonctionne parfaitement, l'affichage avec sauts de page montre bien le saut de page inséré par le code et l'aperçu d'impression aussi.
Peut-être y a-t-il un problème avec ta variable iLigneC50 ? As-tu vérifié sa valeur ?

**a_diard** · 11/12/2023, 16h40

J'ai essayé comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("MatriceFact").Rows("50:50").PageBreak = xlPageBreakManual

ca fonctionne.

**fikou** · 11/12/2023, 17h49

Merci pour vos réponses
Vos 2 codes ne plante pas ils me font un nouvelle page d'une ligne ???
La matrice à une zone d'impression (pourtour bleu dans affichage avec saut de page)
Peut être effacer toutes les zones d'impression avant de commencer ?
La valeur de la variable est la valeur de la dernière ligne de la zone d'impression. J'ai essayé en mettant une ligne avant ou une ligne après là carrément pas de 2ème page

J'ai aussi essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wksMatriceFact.Range("39:60").PageBreak = xlPageBreakManual

Ca ne plante pas mais toujours une 2ème page d'une ligne

Au début je fais ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
wksMatriceFact.Range("A12:D45").Clear
wksMatriceFact.ResetAllPageBreaks

Et du coup j'ai 2 pages mais vertical colonne 1et 2 colonne 2 et 4

@+FikoU

**a_diard** · 11/12/2023, 20h57

Dans ton code (peut être le publier)

si tu copie rubrique par rubrique

Il faut juste insérer un saut de page a la fin de chaque rubrique.

**fikou** · 12/12/2023, 09h50

Bonjour à tous,
J'utilise une feuille comme matrice cette feuille avais une zone d'impression trop petite d'où mes problèmes.
Ca à l'ai résolu.
Je me pose la question cela ne serais pas mieux de créer une feuille que de m'appuyer sur cette "matrice"
Dans cette matrice il y a plus que 2 bas de pages....
Si je me passe de la matrice comment insérer les bas de pages ?

Je ne trouve pas le code pour supprimer les zones d'impression.

Je vais finir toutes mes page et je reviens vous dire si tout est OK
Merci à tous
FikoU