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

[Cotriana]

Bonjour,

Cela fait plusieurs jours que je cherche comment mettre la ligne de la cellule sélectionnée en couleur ou en bordure colorée.
Par exemple, si je clique sur la cellule C12, toutes la lignes 12 passe en colorée ou en bordure colorée.

J'ai un fichier avec beaucoup de colonnes et de données, ça permettrait d'éviter de devoir se déplacer de gauche à droite avec la souris.

En espérant que l'un d'autres vous s'est déjà posé la question.

 

[Staple1600]

Re

Ce n'est pas de bottes que j'ai besoin moi, c'est d'une corde pour aller pendre mon ACER dans un vieux chêne de la forêt de Brocéliande !!!
Maudite licence OEM.
Mais je m'égare.

Demandeur est demandé dans son fil!

 

[Cotriana]

Ah oui, STATIC...

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

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

Bonjour à tous, merci pour votre aide précieuse, le code de Marcel répond parfaitement à ma demande, il n'enlève aucune couleur sur le fichier et ma la ligne en surbrillance. Merci à tous!