impression en fin de page

Version imprimable

30/10/2012, 18h52
trick

1 pièce(s) jointe(s)

impression en fin de page

Bonjour,
je voudrais qu'a chaque feuille que j'imprime ,les cellules B1.2.3.4 a L1.2.3.4 de la feuil 2 s'imprime en fin de page de la feuil 1.
Merci.

http://www.developpez.net/forums/att...1&d=1351619468

Bonsoir,

Une piste. A mettre dans le module du classeur (ThisWorkbook) et voir le résultat sur aperçu avant impression ou alors, imprimer mais il faut preserver la planète ;o) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
    PiedDePage
 
End Sub
 
Sub PiedDePage()
 
    Dim Plage As Range
    Dim I As Integer
    Dim J As Integer
    Dim Texte As String
 
    'plage en feuille "Feuil1" de B1 à L4
    Set Plage = Worksheets("Feuil1").Range("B1:L4")
 
    'construit le texte à faire apparaître
    For I = 1 To Plage.Rows.Count
 
        For J = 1 To Plage.Columns.Count
 
            Texte = Texte & " " & Plage(I, J)
 
        Next J
 
        Texte = Texte & vbCrLf
 
    Next I
 
    'défini le pied de page de la feuille active
    'on peut tester sur aperçu avant impression
    ActiveSheet.PageSetup.CenterFooter = Texte
 
End Sub

Hervé.

31/10/2012, 01h33
Philippe Tulliez

Bonsoir,
A ma connaissance, tu peux répéter ces cellules (B1:L4) en haut de page mais pas en bas de page. Onglet [Mise en page] groupe Mise en page, commande Imprimer les titres et là référencer la zone Ligne à répéter en haut.
Par contre, tu peux utiliser les En-tête et bas de page pour imprimer des informations sur chaque pages.
Ces informations peuvent être des paramètres ou du texte comme constante mais pas le contenu de cellules.
01/11/2012, 15h33
trick

Merci beaucoup super .