changer la couleur de la cellule Fermé

Question

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 ?


Configuration: Windows XP / Internet Explorer 8.0

Mike-31 · Answer

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.

eriiic · Answer

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

Changer la couleur de la cellule

2 réponses

Discussions similaires