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

Cotriana

XLDnaute Nouveau
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.
 
Solution
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...

Cotriana

XLDnaute Nouveau
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
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!
 

Discussions similaires

Statistiques des forums

Discussions
313 274
Messages
2 096 751
Membres
106 738
dernier inscrit
Lacbus