saut de page automatique quand valeur d'une colonne change

[exene]

Bonjour le Forum et bonnes fêtes de Pâques à tous
Je suis content de vous retrouver, en effet je sollicite votre aide car je suis dans une impasse. J'ai collecté de nombreuses données et j'aimerais bénéficier de vos conseils.
Dans le fichier joint vous trouverez un itinéraire d'un facteur. Chaque voies est divisée en portion de voies (PDV). Chaque PDV se voit attribuée un numéro (en colonne B), je souhaiterais insérer un saut de page à chaque fois que ce numéro change. Malgré des recherches sur un sujet maintes fois traité par BOISGONTIER , je n'arrive pas à trouver la solution (je suis nul en VBA)

Merci de votre aide

 

[kjin]

Re : saut de page automatique quand valeur d'une colonne change

Bonjour,

Sub SdPage()
With Sheets(1)
.UsedRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
    For i = .Range("A65000").End(xlUp).Row To 2 Step -1
        If .Cells(i, 2) <> .Cells(i - 1, 2) Then .HPageBreaks.Add Before:=Rows(i)
    Next
End With
End Sub

A+
kjin

 

[exene]

Re : saut de page automatique quand valeur d'une colonne change

Bonsoir,
Merci pour ta réponse et le code, c'est tout a fait ce que je cherchais à réaliser.
A+

 

[exene]

Re : saut de page automatique quand valeur d'une colonne change

Bonjour le Forum,
Je viens de regarder la solution proposée par kjin et imprimé quelques pages. Si la macro insère bien un saut de page quand la valeur de la colonne B change , elle a cependant un inconvénient puisqu'elle classe par ordre croissant les valeurs contenues en colonne B et de fait modifie l'itinéraire du facteur? ce que je ne souhaite pas faire. Peut on y remédier.

Merci.

 

[kjin]

Re : saut de page automatique quand valeur d'une colonne change

Bonjour,
Il suffit de supprimer une ligne

Sub SdPage()
With Sheets(1)
    For i = .Range("A65000").End(xlUp).Row To 2 Step -1
        If .Cells(i, 2) <> .Cells(i - 1, 2) Then .HPageBreaks.Add Before:=Rows(i)
    Next
End With
End Sub

A+
kjin

 

[exene]

Re : saut de page automatique quand valeur d'une colonne change

Bonjour kjin,

Je te remercie de cette réponse si rapide et la macro fonctionne très bien, je viens d'imprimer et c'est tout a fait cela.

Merci encore.

 

[latanz]

Re : saut de page automatique quand valeur d'une colonne change

Bonjour,

je souhaite faire la même chose, insérer un saut de page mais quand un cellule de la colonne A contient des traits tirés : ------

qqun peut m'aider ?

merci mille fois d'avance !