colorer la cellule active

[Seb]

J'essaie de faire que la cellule active se distingue vraiment des autres, par exemple en se colorant et qu'elle perde sa couleur quand elle n'est plus active. Désolé si c'est évident mais je ne connais vraiment pas en excel.
Quelqu'un peut m'aider ??
Bon week-end et merci si vous avez une réponse.

 

[thomas]

Salut Seb,

Pour faire ce que tu veux, tu met ce code dans ta feuille :

Public OldRng As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub

Bon courage,
@+.

 

[Seb]

Merci mais je voudrais améliorer un peu car j'ai déjà des cases colorées et avec ce code, la cellule active prends bien une couleur mais ne reviens pas à sa couleur d'origine.
C'est possible de stocker la couleur et de la renvoyer après ?
Merci.