VBA - si ligne comporte saut de page then

[debidebo67]

Bonjour,

Je souhaite qu'il détecte les lignes qui comporte un saut de page pour mettre une bordure inférieure ou supérieure en fonction de si la ligne se situe avant ou après le saut de page pour fermer le tableau.

J 'essaie de trouver un code du genre :

For i = 18 To 150
If i.Extent = xlPageBreakFull Then
Sheets("Devis").Range("H&i:N&i").Offset(-1, 0).Borders.Color = RGB(0, 0, 0)
Sheets("Devis").Range("H&i:N&i").Offset(1, 0).Borders.Color = RGB(0, 0, 0)
End If
Next i

mais c faux

Quelqu'un aurait-il une idée svp?

Merci d'avance,

Déborah

 

[debidebo67]

Re : VBA - si ligne comporte saut de page then

J'ai trouver :

If Worksheets("Devis").Rows(i).PageBreak <> xlNone Then
's'il y a un saut de page alors ...