[VBA-E] Imposer les sauts de page dans la mise en forme

Bonjour,

Je suis en train de générer des fiches qualités. J'insère des saut de page, afin qu'une fiche corresponde à une feuille A4.

Cependant si les lignes d'une fiche sont trop hautes, un second saut de page m'est imposé, et ma fiche est éditée sur 2 feuilles A4 au lieu d'1.

Je voudrais imposer les sauts de pages de telle sorte que la taille de la fiche s'adapte automatiquement à la taille de la page A4 uniquement entre les sauts que j'impose.

Avez-vous une solution à ce problème ?

D'avance, merci de votre aide.

Bonjour,

Je vous donne plus de détails :

1. Je créé mes fiches, et pour chaque fiche, je créé un saut de
colonne
2. Quand ma rangée de fiches est terminée, je créé un saut de ligne
3. Quand toutes mes fiches sont créées, je définis la zone d'impression.
4. Je fais une mise en forme pour imposer un nombre de pages égal au nombre de fiches, en centrant celles-ci dans la page.
5. A ce moment là, je perds mes sauts de colonne.

J'ai trouvé une parade qui consiste à déplacer les sauts de colonne qui m'ont été imposés par la mise en forme automatique, et à les remettre comme je les avais défini avant.

Là j'ai le problème suivant, un bug sur la ligne suivante :

Code:

---

Set ActiveSheet.VPageBreak(k).Location = Range(Cells(1, k * j), Cells(1, k * j))

---

Il aurait préféré un code du type :

Code:

---

Set ActiveSheet.VPageBreak(k).Location = Range("I1")

---

, par exemple.

L'erreur est de type "434" : Propriété ou méthode non gérée par cet objet.

Si vous avez une idée, je vous en remercie d'avance.

Bonjour,

J'ai résolu mon problème en rajoutant un "s" à VPageBreak, qui devient : VPageBreaks

A bientôt.