Couleur cellule

Résolu
Bonjour,

Comment changer la couleur d'une cellule quand elle devient active et quelle reprenne sa couleur initiale quand elle est inactive.

Merci,

https://mon-partage.fr/f/Pev5DmNg/

--

2 réponses

  1. Bonsoir,
    pour la cellule F9, code à placer dans la feuille :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
            Range("F9").Interior.ColorIndex = 46
            If Not Application.Intersect(Range("F9"), Target) Is Nothing Then
                ActiveCell.Interior.ColorIndex = 4
            End If
        End Sub

    0