[RESOLU] Selectionner dernière ligne tableau variable

[Folette]

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.

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 Sub

Comment faire pour activer les autres cellule de cette ligne ?

Merci.

Salutations.

Folette

 

[Pierrot93]

Re : Selectionner dernière ligne tableau variable

Bonjour,

peut être ainsi :

Range("A" & Rows.Count).End(xlUp).Resize(, 13).Select

bonne journée
@+

 

[Folette]

Re : Selectionner dernière ligne tableau variable

Exactement !!!

Merci beaucoup de l'aide.

Bonne journée.