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.
Par avance, Merci pour votre aide.
Cordialement.
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.
Pièces jointes
Dernière édition: