Saut de ligne intelligent

Bonsoir,

J'aimerais savoir s'il existe une formule permettant de sauter une ligne entre chaque variables similaires du type :

001

001

001

001

002

002

002

002

003

003

003

003

Merci d'avance pour votre réponse!

Quentin

Bonjour,

Par formule, non car une formule utilise une fonction ou des fonctions imbriquées et ne fait que de retourner un résultat, elle ne peut pas faire d'action "physique" sur une feuille de classeur ou sur tout autre objet.

Tu peux par contre utiliser une procédure du genre :

Sub SautDePage()

    Dim Plage As Range
    Dim Cel As Range

    With ActiveSheet

        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))

    End With

    For Each Cel In Plage

        'saut de page au dessus de la cellule
        If Cel.Value <> Cel.Offset(-1, 0).Value Then ActiveSheet.HPageBreaks.Add Cel

        'saut de page au dessous de la cellule
        'If Cel.Value <> Cel.Offset(-1, 0).Value Then ActiveSheet.HPageBreaks.Add Cel.Offset(1, 0)

    Next Cel

End Sub

Hervé.