Changer la couleur de la cellule

Fermé
wahid-chaoui - 24 mai 2013 à 09:40
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 24 mai 2013 à 11:17
Bonjour!

je veut savoir si il etait possible de changer la couleur d'une cellule active d'Excel.

Je souhaiterai, lorsque je clique sur une cellule quelconque que celle ci se colore en vert (par exemple), si je clique sur une autre la cellule reprend sa couleur d'origine et la nouvelle se colore, ect....

j'ai fait ce code mais ca ne marche pas quand je quit la cellue elle ne reprend pas sa couleur 'origine
voici le code

Sub Worksheet_SelectionChange(ByVal sel As Range)

If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 41

End Sub

comment faire pour rendre sa couleur d'origine si je saute a une autre cellule ?


2 réponses

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 24/05/2013 à 10:27
Salut,

Plage concernée A1 à E100 à adapter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Selection, Range("A1:E100")) Is Nothing Then
[A1:E100].Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 4
End If
End Sub


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
24 mai 2013 à 11:17
Bonjour,

déclare tes variables Static qu'elles soient conservées entre 2 appels :
Static old_sel As String, old_color As Long

eric
0