Imprimer les titres sauf pour la dernière page [Résolu]

Signaler
-
 laurel74 -
Bonjour

Je souhaite répéter une ligne de titre sauf pour la dernière page.

Je m'explique : J'ai créé un outil de devis en VBA. Suivant la taille du devis, j'insère un saut de page. La dernière page du devis est les conditions générales de ventes.

Mon soucis : Lorsque le devis fait plus d'une page, je répète la ligne de titre sauf que sur ma dernière page (page des CGV) apparaît la ligne de titre.

Pouvez vous m'aider?

2 réponses

Bonjour laurel74.

Je pourrais peut-être vous aider, mais il faudrait pour cela me montrer votre code, et préciser votre type de document office (par exemple Word).


Cordialement.


Étant illettré, je signe d'une croix : ×
Bonjour Zermelo

Il s'agit d'Excel.

J'ai trouvé une solution pendant l'intervalle :

Voici le code

Function InsertSautPage(ByVal d As Integer)

If d > 48 Then 'Limite avant saut de page

For i = 47 To d Step 50
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Rows(i + 1)
ActiveSheet.Range("B23:I23").Copy
ActiveSheet.Range("B" & i + 1).Insert Shift:=xlDown
Application.CutCopyMode = False

Next i

End If

End Function

Mais si quelqu'un à une autre solution plus simple je suis preneur.