Discussion :

[lou93]

Bonjour,

J'ai essayé d'écrire un code me permettant d'ajouter des bordures horizontales bleues clair entre les colonnes D et H d'un tableau Excel.

Le code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
  For Each cell In Range("D5:H" & derLn - 1)
        For i = 8 To 9
            With cell.Borders(i)
                .LineStyle = xlContinuous
                .Color = RGB(217, 225, 242)
                .Weight = xlThin
            End With
        Next i
    Next cell

Ce code fonctionne parfaitement. Cependant, je ne comprends pas le fonctionnement du "for i = 8 to 9". J'ai fait des tests, et visiblement cela impact le trait des bordures (si je met par ex "for i= 4 to 9" je me retrouve avec des lignes diagonales dans chaque cellule). Quelqu'un pourrait il m'expliquer? Y a t'il une règle particulière liée à la propriété .Borders?

[Menhir]

La variable i est utilisée pour désigner le bord concerné.
8 et 9 désignent respectivement la bordure du haut et celle du bas d'une cellule.
Lire ça : https://docs.microsoft.com/fr-fr/off...border(object)
et ça : https://docs.microsoft.com/fr-fr/off...xlbordersindex

Cela dit, il y a bien plus simple pour écrire ça.

Code :

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

1
2
3
4
5
With Range("D5:H" & derLn).Borders(8)
    .LineStyle = xlContinuous
    .Color = RGB(217, 225, 242)
    .Weight = xlThin
End With

[lou93]

Bonjour,

Merci pour votre réponse.

Le code que vous m'avez proposé ne fonctionne pas. Cela ne crée pas d'erreurs, mais les bordures n'apparaissent pas..

Savez-vous pourquoi?

[Menhir]

Essaye ça :

Code :

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

1
2
3
4
5
With Range("D4:H" & derLn).Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Color = RGB(217, 225, 242)
    .Weight = xlThin
End With

Cela dit, la couleur et l'épaisseur que tu as choisis sont quasiment identiques à ceux du quadrillage par défaut d'Excel donc si tu n'as pas supprimé l'affichage du quadrillage, ce sera quasiment invisible.

[lou93]

Bonjour,

Ce code fonctionne parfaitement ! Merci pour votre aide