Macro saut de page

[simonB]

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

 

[Gorfael]

Re : Macro saut de page

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

Salut
Essaie cette macro :

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

On efface les anciens sauts de page
on commence à la ligne 34 (juste après le premier nom pour ne pas générer un saut de page avant le premier nom)
Chaque fois qu'on rencontre un nom en A, on génère un saut de page manuel au-dessus.

Attention : les sauts manuels sont en supplément des sauts automatiques. Donc, si le client dépasse la capacité d'une feuille, il sera sur 2 (ou plus) feuilles.
A+

 

[simonB]

Re : Macro saut de page

Merci Gorfael !

C'est exactement ce que je voulais.

Simon

 

[prinz]

Re : Macro saut de page

Merci!!

Bruno