Discussion :

[gregou]

Bonjour,

J'aurais aimé insérer un saut de page après avoir respecté une double condition.
Quand j'essaye avec une simple condition cela fonctionne mais pas quand j'utilise une double condition.
Ci-joint le fichier avec mon code, si quelqu'un peut me dire ce qui cloche.

Merci d'avance

SautPageAuto.xls

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SautsPage()
    Dim C As Range
    For Each C In Range([A3], Cells(Rows.Count, 1).End(xlUp))
        If C.Value <> C.Offset(-1).Value Or C.Offset(, 1).Value <> C.Offset(-1, 1).Value Then
            ActiveSheet.HPageBreaks.Add before:=C
        End If
    Next C
End Sub