Discussion :

[steps5ive]

Bonjour,

J'ai une plage de données dans laquelle j'aimerais que chaque cellule ait une bordure à droite et à gauche seulement.

Existe-t-il un moyen de réaliser cette opération en une seule étape ou dois-je absolument parcourir chaque cellule afin d'y appliquer la bordure souhaiter?

Merci pour votre aide

[ouskel'n'or]

En simplifiant le code enregistrée en faisant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub BorderVerticalementLesCellulesDunePlage()
    Range("A1").CurrentRegion.Select
    With Range("A1").CurrentRegion.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        '.Weight = xlThin 'par défaut
        '.ColorIndex = xlAutomatic 'par défaut
    End With
    With Range("A1").CurrentRegion.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        '.Weight = xlThin 'par défaut
        '.ColorIndex = xlAutomatic 'Par défaut
    End With
    With Range("A1").CurrentRegion.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        '.Weight = xlThin 'par défaut
        '.ColorIndex = xlAutomatic 'par défaut
    End With
End Sub

Les valeurs "par défaut" de lignes pouvant être supprimées si tu souhaites que leur format soit le format... par défaut
Ce qui donnerait

Code :

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

1
2
3
4
5
    With Range("A1").CurrentRegion
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With

C'est plus court !!!
A+

[steps5ive]

Merci beaucoup!