F
Folette
Guest
Bonjour à tous,
J'ai un petit problème pour terminer ma macro de bordure.
J'ai un tableau (sur les colonnes A:M) avec un nombre de lignes variables.
J'aimerais, lors d'une insertion, que la bordure se mette automatiquement sur cette dernière ligne de A à M
J'ai fais une macro, mais j'arrive seulement a activer la permière cellule de la dernière ligne.
Comment faire pour activer les autres cellule de cette ligne ?
Merci.
Salutations.
Folette
J'ai un petit problème pour terminer ma macro de bordure.
J'ai un tableau (sur les colonnes A:M) avec un nombre de lignes variables.
J'aimerais, lors d'une insertion, que la bordure se mette automatiquement sur cette dernière ligne de A à M
J'ai fais une macro, mais j'arrive seulement a activer la permière cellule de la dernière ligne.
Code:
Sub bord()
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End SubComment faire pour activer les autres cellule de cette ligne ?
Merci.
Salutations.
Folette
Dernière modification par un modérateur: