[RESOLU] Faire évoluer une zone pour bordures

[aubelix]

Bonjour à tous les Amis du Forum.

Je vous soumet un problème réccurant concernant les bordures.
J'ai trouvé une macro qui me convient pour la mise en bordures
de données d'un tableau, mais j'ai un problème:
Comment modifier la macro pour la prise en compte de nouvelles
colonnes. Pour les lignes, pas de souci, mais les colonnes, je ne vois
pas la syntaxe.

 Sub Bordures()
    Range("A1:AB" & Range("A65535").End(xlUp).Row).Select
'Modifier [U]la ligne ci-dessus [/U]pour prise en compte les colonnes supérieures à AB
appellée à évoluer
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Par avance, Merci pour votre aide.
Cordialement.

 

[phlaurent55]

Re : Faire évoluer une zone pour bordures

Bonjour Aubelix,

en remplaçant la première ligne par celles-ci:

    Range("A1").Select
    Selection.CurrentRegion.Select

à+
Philippe

 

[DoubleZero]

Re : Faire évoluer une zone pour bordures

Bonjour, aubelix, le Forum,

Comme ceci ?

Option Explicit
Sub Bordures()
With Range("a1").CurrentRegion
.Borders.Value = 1
.Borders.Weight = xlHairline
End With
End Sub

A bientôt 🙂

P. S. 1 : Bonjour, Philippe 🙂

P. S. 2 : Mes excuses 😱... je n'ai pas vu que le quadrillage du fichier déposé est issu d'une MFC.

 

[aubelix]

Re : Faire évoluer une zone pour bordures

Bonjour PhLaurent55, DoubleZero et tous les Amis du Forum.

Merci pour vos réponses respectives et pour votre aide.
Vos deux réponses sont complémentaires et me conviennent.

Cordialement.