Changer la couleur de la cellule
wahid-chaoui
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
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 ?
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
-
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. -
Bonjour,
déclare tes variables Static qu'elles soient conservées entre 2 appels :
Static old_sel As String, old_color As Long
eric
