[VBA-E] Bordure et plage de données

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

En simplifiant le code enregistrée en faisant

Code:

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:

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 !!! :lol:
A+

Merci beaucoup!