XL 2013 Impression en page figée

Lucie61

XLDnaute Nouveau
Bonjour le Forum

J'espère que vous vous portez bien !!

J'ai imbriqué pas mal de données en vba qui me permettent de transposer mes données comme je le souhaitais
Sauf que lors de l'impression, je n'arrive pas à trouver une solution qui me permet de figer le visuel pour chaque feuille imprimer.

Je m'explique :
Ma macro va récupérer les données contenues dans un Tableau Croisé Dynamique puis les copier coller sur un autre onglet (cet onglet Feuil3 représente la page qui va être imprimer avec les données qui varient selon un regroupement de données).
Selon le regroupement de données, ma macro va cacher les lignes inutilisées.
De ce fait, le visuel standard que je veux n'est pas fixe.

Ce que je veux lors de l'impression :
1600674100716.png


Ce que je NE veux PAS :
1600674149234.png


Ma partie avec zone de destruction est cachée et le cadre mis est plus petit et ne prend pas toute la feuille.
Est-il possible de faire en sorte que la partie en haut de la ligne 1 à 4 soit figées
et cette zone reste visible ? :
1600674404853.png


Il faut savoir qu'entre les lignes 5 à 124, les données sont variables, je peux en avoir plus ou moins mais elle ne dépassent pas les lignes entre 5 et 124.

Je vous met en PJ mon fichier avec la macro.

Merci par avance de votre retour et de votre aide

Lucie61
 

Pièces jointes

  • Affichage 1 page.xlsm
    36.7 KB · Affichages: 13

kiki29

XLDnaute Barbatruc
Salut, qqch du genre, enfin si j'ai bien compris .....
VB:
Option Explicit

Sub tst()
Dim LastRow As Long
    LastRow = Feuil3.Range("A124").End(xlUp).Row + 1
    Feuil3.Rows(LastRow & ":124").EntireRow.Hidden = True
    '   Routine d'impression
    Feuil3.Rows(LastRow & ":124").EntireRow.Hidden = False
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 885
Membres
101 830
dernier inscrit
sonia poulaert