ligne grisée lorsqu'une cellule est sélectionnée [Résolu]

[NEC14]

Bonjour à tous,

Je cherche un moyen de griser automatiquement une ligne dans un tableau lorsqu'une cellule de cette ligne est sélectionnée dans la colonne "X". Par contre, lorsque je change de ligne, le grisé doit changer de ligne également.

Pouvez-vous m'apporter votre aide s'il vous plait ?

Je vous en remercie par avance

René

[Daniel.C]

Bonjour,
Dans un module standard, mets :

Code :

Public ResLigne  As Integer

Dans le module ThisWorkbook, mets :

Code :

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Rows(ResLigne).Interior.ColorIndex = 0
End Sub

Dans le module de la feuille, mets :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 24 Then
        If ResLigne <> 0 Then
            Rows(ResLigne).Interior.Color = 16777215
            Rows(ResLigne).Interior.ColorIndex = 0
        End If
        Target.EntireRow.Interior.Color = RGB(192, 192, 192)
        ResLigne = Target.Row
    End If
End Sub

Note que toute couleur préexistante sera effacée.

[NEC14]

Bonjour Daniel,

Merci beaucoup pour ton aide, c'est exactement ce que j'attendais.
Bon week-end et encore merci

René