CELLULE EN COULEUR SI SELECTIONNEE

[LUCIEN]

Bonjour au Forum
Je me pose une question, comment mettre en couleur une cellule lorsque je la selectionne ? Avez-vous une réponse à apporter à ma question ? Merci .
LUCIEN

 

[P.O.]

Bonsoir au Forum,
Je vous propose la macro suivante (trouvé sur le net), elle permet à une cellule active de changer de couleur :

Public old_color, old_sel
Option Explicit
If Not old_sel= '' Then Range(old_sel).Interior.ColorIndex=old_color
old_sel=sel.Address
old_color=sel.Interior.ColorIndex
sel.Interior.ColorIndex=17
End Sub

Elle fonctionne à merveille. Un petit problème tout de même... Après sauvegarde, fermeture et réouverture du classeur, la dernière cellule active garde la couleur imposée par la macro :S Si quelqu'un sait comment la perfectionner afin qu'elle restitue la couleur d'origine à la dernière cellule active, je l'en remercie d'avance.
Un grand merci à toutes celles et ceux qui proposeront une solution à ce problème.

P.O.