[RESOLU] Faire évoluer une zone pour bordures

aubelix

XLDnaute Impliqué
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.

Code:
 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.
 

Fichiers joints

Dernière édition:

phlaurent55

XLDnaute Barbatruc
Re : Faire évoluer une zone pour bordures

Bonjour Aubelix,

en remplaçant la première ligne par celles-ci:
Code:
    Range("A1").Select
    Selection.CurrentRegion.Select
à+
Philippe
 

DoubleZero

XLDnaute Barbatruc
Re : Faire évoluer une zone pour bordures

Bonjour, aubelix, le Forum,

Comme ceci ?

Code:
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 :eek:... je n'ai pas vu que le quadrillage du fichier déposé est issu d'une MFC.
 
Dernière édition:

aubelix

XLDnaute Impliqué
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.
 

Haut Bas