Saut de page automatique

[CBDORVAL]

J’ai un fichier Excel 2010 dans lequel j’ai en autre 2 onglets visibles. Pour chacun de ces feuilles, j’aimerai avoir des sauts de page automatiques à toute les fois que la valeur de la colonne A change.
Dans un des onglets la valeur de la colonne A est numérique en débutant par 1 puis après une certaine quantité de lignes cette valeur change pour 2 et ainsi de suite pour aller jusqu’à peut-être 200. Il y a plus de 2800 lignes dans cette feuille.
Dans l’autre onglet, la valeur de la colonne A est texte, qui en fait est le nom d’une municipalité. Il y a le même nombre de lignes (2800) mais répartit sur 17 nom de municipalités différentes.


Merci

Claude

 

[Sabrinara]

Re : Saut de page automatique

Bonsoir,
Pour effectuer cette programmation il faut faire une macro, malheureusement, ne m'y connaissant pas en code VBA je ne peux pas vous renseigner plus.
Bon courage

 

[CBDORVAL]

Re : Saut de page automatique

J'ai trouvé*la réponse: la voici

Sub SdPAuto()
With ActiveSheet
On Error Resume Next
For X = .HPageBreaks.Count To o Step -1
.HPageBreaks(X).Delete
Next
For i = 1 To [c65000].End(xlUp).Row
If Cells(i + 1, 1) <> Cells(i, 1) Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
End If
Next
End With
End Sub


Merci à tous