Saut de page à chaque changement de nom

[Boby71C]

Bonjour à tous
J'ai un document avec des séries de noms en colonne A.
Auriez vous une solution pour inssérer un saut de page à chaque changement de nom ? en ayant sur chaque feuille les titres de la ligne 1

Merci pour votre aide.

@+

 

[BOISGONTIER]

Re : Saut de page à chaque changement de nom

Bonjour,

Sub SautPageGroupe()
   ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
   ActiveSheet.ResetAllPageBreaks ' raz
   For i = 2 To [A65000].End(xlUp).Row
     If Cells(i + 1, 1) <> Cells(i, 1) Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
     End If
   Next
   ActiveSheet.PrintPreview
   'ActiveSheet.ResetAllPageBreaks ' raz
End Sub

Les éditions (vba)

JB
Formation Excel VBA JB

 

[BERRACHED said]

Re : Saut de page à chaque changement de nom

Salut,Boby71C

un début de solution essaye de l'adapter en faisant ls modifications necessaires

Cordialement

 

[Boby71C]

Re : Saut de page à chaque changement de nom

Bonsoir à tous

Merci beaucoup pour votre aide.
La solution de BOISGONTIER est excellente.
Je n'ai pu adapter la solution de BERRACHED said car je ne peu pas définir de hauteur de page par rapport au nombre de lignes car la hauteur de lignes n'est pas régulière, elle s'adapte selon les données qui y sont renseignées.
Merci à tous 2 pour votre précieuse aide.

@+