Titre et saut de page

  • Initiateur de la discussion Initiateur de la discussion jolly roger
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jolly roger

Guest
Voici mon problème :

J’ai un fichier Excel tenant sur 2 pages à l'impression. Pour diverses raisons que je n’expliciterai pas ici, je cherche à insérer plusieurs lignes après le premier saut de page afin de pouvoir ensuite insérer un titre différent de celui de la première page.
Je ne peux pas utiliser la fonction « lignes à répéter » du menu « mise en page » car pour constituer mon titre je récupère des informations issues de classeurs différents et de lignes non consécutives.
Par ailleurs, le nombre de lignes sur la première page à imprimer est variable car la taille des lignes varie en fonction de leur contenu (certaines cellules sont parfois remplies sur 2 ou 3 lignes) ce qui ne me permet pas d’avoir une position fixe de mon saut de page, d’où la nécessité de connaître l’emplacement du premier saut de page (entre quelle ligne et quelle ligne) pour insérer les lignes de mon titre.
Ma question est donc la suivante : comment programmer avec une macro l’insertion de lignes après le premier saut de page ?

Merci à tous ceux qui m'apporteront leur aide.
 
Re : Titre et saut de page

Bonsoir,
avec ce code, tu peux insérer 3 lignes après le premier saut de page :

Code:
NoDeLigne = Feuil1.HPageBreaks(1).Location.Cells.Row
Rows(NoDeLigne & ":" & NoDeLigne + 3).Insert Shift:=xlDown

NoDeLigne te donne la première ligne de ta deuxième feuille (Ici Feuil1, à adapter), et pourra te servir pour insérer ton deuxième titre.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
831
Retour