Discussion :

[target111]

bonjour



je voudrais imprimer la ligne 1 comme en tête sur toutes les pages
j'ai fait une macro dont voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub IMPRIMER_Click()
'********************************************************************
'ROUTINE POUR COPIER ENTETE DATE TITRE No DE PAGE SUR TOUTE LES PAGES
'********************************************************************
With ActiveSheet.PageSetup
 .PrintTitleRows = "$1:$1" 'COPIE 1Ere LIGNE SUR CHAQUE FEUILLE
 .PrintTitleColumns = ""
 .LeftHeader = "&""Arial,Gras""&D" 'AFFICHE DATE A GAUCHE
 .CenterHeader = "&""Arial,Gras""&14ACHATS COMPAGNIE" 'TITRE DE LA PAGE
 '.PrintTitleRows = "$1:$1" 'COPIE 1Ere LIGNE SUR CHAQUE FEUILLE
 '.PrintTitleColumns = ""
 .CenterFooter = "Page &P de &N" 'INDIQUE PAGE 1 SUR 2 PAR Ex
End With
 
'****************************
' IMPRIME LE FEUILLE D'ACHATS
'****************************
Worksheets("Achats").PrintOut 'ENLEVER " ' " EN DEBUT LIGNE POUR IMPRIMER LA FEUILLE ACHATS
End Sub

mais avec cette macro la ligne 1 ne s'imprime pas sur toutes les pages une petite aide serait le bien venue

merci d'avance pour vos réponses

Cordialemnt

[mercatog]

Tu étais proche. Es tu certain que la feuille active est celle nommée Achats?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub IMPRIMER_Click()
 
With Worksheets("Achats")
    With .PageSetup
        .PrintTitleRows = "$1:$1"                  'COPIE 1Ere LIGNE SUR CHAQUE FEUILLE
        .LeftHeader = "&""Arial,Gras""&D"          'AFFICHE DATE A GAUCHE
        .CenterHeader = "&""Arial,Gras""&14ACHATS COMPAGNIE"    'TITRE DE LA PAGE
        .CenterFooter = "Page &P de &N"            'INDIQUE PAGE 1 SUR 2 PAR Ex
    End With
    .PrintOut                                      'ENLEVER " ' " EN DEBUT LIGNE POUR IMPRIMER LA FEUILLE ACHATS
End With
End Sub

[target111]

Bonjour

oui la feuille active est Achats
lorsque je fais aperçu avant impression sur la 2eme feuille je ne vois pas la 1ere ligne en en tête sauf si je fais mise en page feuille ligne à répéter en haut $1$1

Cordialement