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]

Bonjour

Si j'ai bien compris
A mettre dans le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
Target.EntireRow.Interior.Color = vbYellow
End Sub

NB: C'est une solution basique ( à éprouver en situation réelle)

 

[Staple1600]

Re

C'est un peu plus secure ainsi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
If Target.Count = 1 Then
Target.EntireRow.Interior.Color = vbYellow
End If
End Sub

 

[Cotriana]

dois-je rajouter quelque chose si j'ai plusieurs feuilles?
J'ai mis le code dans le vba "This workbook" je ne sais pas si c'est ça

 

[Staple1600]

Re

J'avais bien écris: dans le code de la feuille, non ?

Si c'est pour plusieurs feuilles, la procédure doit être remaniée.

 

[Staple1600]

RE

Ci-dessous le code pour ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.Color = xlNone
If Target.Count = 1 Then
Target.EntireRow.Interior.Color = vbYellow
End If
End Sub

Evidemment il faut supprimer le code précédent que tu as mis dans ta feuille de test.

 

[Cotriana]

purée je suis bête, j'ai mal compris je n'ai pas l'habitude de mettre un code dans une feuille j'ai tendance à créer essentiellement des modules
Merci ça surligne bien la ligne c'est parfait mais est-ce normal que ça me désactive les autres couleurs comme celle des en-têtes (exemple ci-dessous)

 

[Staple1600]

Re


Oui c'est normal à cause de cette ligne (que je trouve assez explicite, non ? )
Sh.Cells.Interior.Color = xlNone

Supprime-là, mais là un autre problème se posera

 

[Cotriana]

Que dois-je faire alors pour garder mes couleurs mais quand même en plus pouvoir visualiser ma ligne en couleur jaune lorsque je sélectionne une cellule ? Est-ce possible ?

 

[TooFatBoy]

Bonjour,

Le mieux serait peut-être, non pas de changer la couleur de fond, mais ajouter un motif hachuré jaune.

Et sinon, j'ai une question : comment on revient à la couleur d'origine quand on change de ligne ?
Il faut gérer ça avec une variable globale et tout le toutim ???
Je pense que c'est l'autre problème dont parlait le camarade Staple1600.

 

[Staple1600]

Re

Je pense que c'est l'autre problème dont parlait le camarade Staple1600.

Je confirme, camarade Marcel

Il faut sortir un truc genre: Static

 

[TooFatBoy]

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

 

[Hasco]

Bonsoir chacun, chacune et les autres...

Voici un exemple d'une technique que j'emploie, à base de noms et mise en forme conditionnelle + tout petit vba.
Dans l'exemple l'effet est limité au tableau nommé "DATAS" mais ce n'est pas obligatoire.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("DATAS")) Is Nothing Then
    Application.Names.Add "LigneActive", Target.Row
    Application.Names.Add "ColonneActive", Target.Column
 Else
    Application.Names.Add "LigneActive", 0
    Application.Names.Add "ColonneActive", 0
 End If
End Sub

Pour le choix des couleurs, j'ai fait rapide, alors ne criez pas.

cordialement

 

[Staple1600]

Re, Bonjour Hasco

Un JM se doit de citer un autre JM
(tant pis pour la poussière de 17 ans d'âge )

Couleur de ligne active...

Bonjour à tous, J'aurais vouku savoir s'il y avait un moyen de mettre la ligne en selection en surimpression de couleur. En effet, je dispose d'un tableau avec bcp de donnees et je ne repere pas facilement ou se trouve ma cellule en selection. S'il est possible de mettre en couleur...

www.excel-downloads.com

 

[Hasco]

Re,

Hello @Staple1600
Tout le monde dit que les grands esprits se rencontrent, en voilà une preuve supplémentaire arf...arf....arf
Vais plus pouvoir mettre mes bottes moi

La roue se réinvente d'elle-même.