Discussion :

[Novice72]

Bonjour à toutes et à tous,

Voilà, à l'aide d'Userforms, j'ai crée un tableau ayant pour première ligne les légendes de chaque colonne ( Nom / Adresse / Téléphone / Race bovine / etc..... )

Grâce à une macro qui fonctionne très bien grâce à vous, j'ai réussi à créer autant de feuilles qu'il y a de races ( je préfère ceci qu'un filtre pour diverses raisons ).

pour une "race" donnée, au moment de l'impression, il y a au moins 2 pages voire plus.

Voici mon problème :
Je sais créer un saut de page mais je voudrais qu'il soit à la 17 , 18 ou 19èmè ligne ( par exemple ) suivant la hauteur des lignes ( j'ai utilisé Autofit ). Autrement dit, je voudrais que les pointillés visibles lorsqu'on fait un "aperçu avant impression" ) se transforment en saut de page.

De plus, juste après le saut de page, recopier la ligne 1 afin d'avoir aussi les légendes sur chacune des feuilles suivantes.


Merci d'avance pour vos réponses.


Novice72

[Invité]

Bonjour,

Il vous faut apprendre à utiliser l'enregistreur de macros.

Sinon à tester et à modifier en fonction de vos tableaux :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Option Explicit
 
Sub PreparerLImprimante()
 
 
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
 
         .PrintTitleRows = "$1:$1"   ' Ligne à répeter à chaque changement de page.
         .PrintArea = ""
 
        '.LeftHeader = ""
        '.CenterHeader = ""
        .RightHeader = "&D"  ' Met la date d'impression en haut à droite
 
        '.LeftFooter = ""
        '.CenterFooter = ""
        .RightFooter = "&F - &A" ' Met le nom du fichier et de l'onglet en bas à droite
 
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
 
        .PrintQuality = 600
 
        .CenterHorizontally = True
        .CenterVertically = False
       ' .Orientation = xlPortrait ' Choix de l'orientation
        .Orientation = xlLandscape
 
        .PaperSize = xlPaperA4       ' Format du papier
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
 
        .FitToPagesWide = 1       ' Cadre le document à 1 page en largeur
        .FitToPagesTall = False   ' et l'ajuste automatiquement en hauteur.
 
 
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
 
    End With
    Application.PrintCommunication = True
 
End Sub

[Novice72]

Bonjour Eric,

Je te remercie pour ton aide. Ton programme fonctionne presque parfaitement ( j'ai mis la ligne 51 en commentaire pour le moment car elle bloque le programme - même si l'imprimante est allumée ).

Pour répondre à ta remarque, il m'arrive souvent d'utiliser l'enregistreur de Macros. Parfois, cela est impossible ( en tout cas pour moi ). En effet, je recherchais à remplacer les pointillés par des sauts de pages puis et surtout, je ne vois pas comment j'aurais pu après avoir fait un "aperçu avant impression" ajouter la ligne 1 sur chaque page.


Encore un super merci à toi Eric.



Novice72

[Invité]

Il faut peut-être neutraliser la ligne 28.

Sinon, j'ai purgé le code de pas mal de lignes inutiles mais peut-être trop. Il faut simuler un paramétrage d'impression comme je l'ai fait et modifier les lignes importantes du code 10, 40, 41.