XL 2016 Mettre ligne de la cellule active en couleurs ou en bordure spéciale

Marcel32 à dit:

Ah oui, STATIC...

Moi j'avais pensé à un truc dans ce genre mis dans le Worksheet de la feuille :

VB:

Dim OldLine As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim MaPlage As Range

    Set MaPlage = ActiveSheet.Range("B2:G15")

    If Target.Rows.Count = 1 Then
   
        If Not OldLine Is Nothing Then
            With MaPlage.Resize(1).Offset(OldLine.Row - 2).Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .PatternTintAndShade = 0
            End With
        End If

        If Not Intersect(Target, MaPlage) Is Nothing Then
            With MaPlage.Resize(1).Offset(Target.Row - 2).Interior
                .Pattern = xlLightUp
                .PatternColor = 65535
                .PatternTintAndShade = 0
            End With
            Set OldLine = Target
        End If

    End If

End Sub

Cliquez pour agrandir...