colorer la cellule active

Seb · 18 Avril 2003

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 · 18 Avril 2003

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 · 22 Avril 2003

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.

colorer la cellule active

Seb

Guest

thomas

Guest

Seb

Guest

Discussions similaires