Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Saut de page automatique

CBDORVAL

XLDnaute Junior
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
 

CBDORVAL

XLDnaute Junior
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…