Macro saut de page

simonB à dit:

Bonjour à tous,

Suite à la perte d'information je reposte mon problème de la semaine dernière.

Je débute en vba et je voudrais créer une macro qui insère automatiquement des sauts de pages à chaque client pour qu'à l'impression chaque client puisse apparaitre sur une nouvelle page.

Mon fichier se présent ainsi:

Col.A_____Col.B_____Col.C__Etc...

Client 1___localité1__article1 Etc...
__________________article2 Etc...
__________________article3 Etc...
__________________article4 Etc...

Client 2___localité2__article1 Etc...
__________________article2 Etc...

Client 3___localité3__article1 Etc...
__________________article2 Etc...
__________________article3 Etc...
__________________article4 Etc...
__________________article5 Etc...

Mon tableau débute en ligne 33 et se termine par une ligne résultat global.

Merci d'avance pour votre aide

Simon

Cliquez pour agrandir...

Sub test()
Dim X As Long
For X = ActiveSheet.HPageBreaks.Count To 1 Step -1
    ActiveSheet.HPageBreaks(X).Delete
Next X
For X = 34 To Range("A65536").End(xlUp).Row
    If Range("A" & X) <> "" Then _
        ActiveSheet.HPageBreaks.Add Before:=Range("A" & X)
Next X
End Sub