CELLULE EN COULEUR SI SELECTIONNEE

  • Initiateur de la discussion LUCIEN
  • Date de début
L

LUCIEN

Guest
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

P.O.

Guest
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.
 

Discussions similaires

Réponses
28
Affichages
1 K

Statistiques des forums

Discussions
312 980
Messages
2 094 128
Membres
105 941
dernier inscrit
antho_qh