debidebo67
XLDnaute Nouveau
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
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