Coloriser ligne lorsqu'une cellule est active

Bonjour,

J'ai trouvé ce code qui fonctionne bien, le problème c'est que ça ne garde pas la couleur (texte et fond) d'origine.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long

    If Target.Count > 1 Then Exit Sub
    If AncAdress <> 0 Then 'remettre en normal
        Rows(AncAdress).Interior.ColorIndex = xlNone
        Rows(AncAdress).Font.ColorIndex = 0
    End If
    Target.EntireRow.Font.ColorIndex = 6
    Target.EntireRow.Interior.ColorIndex = 3
    Target.EntireRow.Interior.Pattern = xlSolid
    AncAdress = Target.Row
End Sub

Or j'ai déjà certaine cellule qui ont une couleur, comme j'ai bcp de ligne, je souhaite simplement que la ligne change de couleur lorsque je sélectionne une cellule mais que ça puisse reprendre sa couleur si je vais sur une autre ligne, or avec le code ci-dessus, ça met le font en blanc et le texte en noir.

Bonjour,

Dans le code que tu as posté ...tu auras constaté que l'instruction utilise EntireRow ... soit toute la ligne ...

Pour arriver à ce que tu désirerais ... il faudrait faire de la "micro-chirurgie" ... pour tester et exclure une à une les cellules qui ont déjà une couleur ...

Personnellement, je ne te conseille de t'embarquer là dedans ... d'autant plus que le "bénéfice" n'est pas si important que çà ...

Effectivement, ça parait compliqué pour pas grand chose, il semblerait que la solution serait d'utiliser les MFC, ce qui m'embete c'est que c'est appliqué à une plage.