Modifier macro pour ins page au lieu de tracer trait rouge

Bonjour,

J'ai en ma possession cette macro bien pratique pour moi (ci-jointe) qui insère un trait rouge sous condition (dès qu'une valeur dans une colonne donnée change d'une ligne par rapport à la suivante). Je souhaiterais modifier cette macro afin qu'en lieu et place du trait rouge, elle m'insère un saut de page....

Merci par avance

Bonjour,

Un truc du style

Private Sub CommandButton1_Click()
    Dim x As Long
    Dim r As Range

    Set r = Range(RefEdit1.Text)

    For x = 2 To r.Rows.Count - 1
        If r.Cells(x, ComboBox1.ListIndex + 1) <> r.Cells(x + 1, ComboBox1.ListIndex + 1) Then
          r.Rows(x).PageBreak = xlPageBreakManual '/// modif
'            r.Rows(x).Borders(xlEdgeBottom).LineStyle = xlContinuous
'            r.Rows(x).Borders(xlEdgeBottom).Color = vbRed
        End If
    Next

    Unload Me
End Sub

Cordialement.

PMO

Patrick Morange

Bonjour et merci pour la réponse.

Toutefois, en tant que grand débutant sur les macros, je n'ai pas réussi à l'utiliser.

Dois-je partir du fichier exemple que j'avais joint où est-ce un code "indépendant" à rentrer à part ? J'ai essayer de le rentrer comme nouvelle macro, ùais sans succès, j'ai des erreurs et des "bugs". De plus, je ne sais pas décoder sur quel colonne le "tri" est fait, le fichier exemple que j'avais joint propose de le définir à chaque utilisation.... Merci par avance !!

Cordialement..

D.A.