Discussion :

[Alex86]

Bonjour,
J'ai une question sur Vba, je voudrais dire dès qu'il n'y a plus de valeurs en bas et à gauche alors des bordures se mettent autour de la partie ou il y a des valeurs.
Exemple ci-dessous.



En vous remerciant.

[joe.levrai]

Bonjour,

à placer dans le module de la feuille souhaitée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Borders.LineStyle = xlNone
    UsedRange.Borders.LineStyle = xlThin
End Sub

[Alex86]

C'est pas mal du tout et si je veux prendre range.used + 2 case en haut et en bas comment je peux modifier mon code ?
J'ai essayé en mettant une variable mais logiquement ça ne marche pas...

d = ActiveSheet.UsedRange
Range(d + 2, d + 2).Select

[joe.levrai]

Bonjour,

ça m'a l'air un peu bancal, je te laisse regarder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
    Cells.Borders.LineStyle = xlNone
    With UsedRange
        If WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub
        Lig = WorksheetFunction.Min(.Cells(1, 1).Row, 3)
        .Resize(.Rows.Count + 1 + Lig, .Columns.Count).Offset(1 - Lig, 0).Borders.LineStyle = xlThin
    End With
End Sub

[Alex86]

ça ne marche pas mais je me suis arrangé avec le premier code.
Merci !