Discussion :

[grisan29]

bonjour a tous

pourrai je savoir ce que veux dire ces lignes de codes s'il vous plaît

Code :

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

1
2
3
4
For Each HPB In .HPageBreaks
        .Range(.Cells(HPB.Location.Row - 1, 3), .Cells(HPB.Location.Row - 1, 12)).Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Range(.Cells(HPB.Location.Row, 3), .Cells(HPB.Location.Row, 12)).Borders(xlEdgeTop).LineStyle = xlContinuous
    Next HPB

et a quoi correspond

Code :

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

Cells(HPB.Location.Row - 1, 3)

et les autres identiques
merci de vos réponses futures

Pascal

[mercatog]

La variable HPB est déclaré en haut par

Code :

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

Dim HPB As HPageBreak

Lisez Saut de Page Horizontal

Code :

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

1
2
With Worksheets("Feuil7")
    For Each HPB In .HPageBreaks

On parcourt la collection des Sauts de pages (HPageBreaks)

HPB.Location est la première cellule juste en bas du saut de page

Donc HPB.Location.row-1 est la ligne juste avant le saut de page

Code :

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

.Range(.Cells(HPB.Location.Row - 1, 3), .Cells(HPB.Location.Row - 1, 12))

C'est la plage allant de la 3ème colonne à la 12ème de la ligne juste en dessus du saut de page

On peut l'écrire aussi à l'aide d'Offset et resize

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim HPB As HPageBreak
 
With Worksheets("Feuil7")
    For Each HPB In .HPageBreaks
    With HPB.Location.Offset(-1, 3).Resize(1, 9)
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeTop).LineStyle = xlContinuous
        End With
    Next HPB
End With

[grisan29]

bonjour Mercatog

merci de cette explication et de cette modification en prime, ce qui rajeuni le code

Merci et bonne continuation

Pascal