Couleur cellule

Bonjour,

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

Merci,

Salut Esteban,

ainsi, peut-être...

La couleur Active s'applique à toute cellule, la couleur Inactive uniquement aux cellules non-vides... par exemple...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If [AAA1] <> "" Then Range([AAA1]).Interior.ColorIndex = IIf(Range([AAA1]) <> "", 44, 0)
Target.Interior.ColorIndex = 4
[AAA1] = Target.Address
'
End Sub

A+

bonjour

une contribution

Merci beaucoup c'est parfait !