Changer la couleur de la cellule
wahid-chaoui
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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 ?
A voir également:
- Changer la couleur de la cellule
- Changer dns - Guide
- Excel cellule couleur si condition texte - Guide
- Changer la couleur de la barre des taches - Guide
- Comment changer la couleur de whatsapp - Accueil - Messagerie instantanée
- Aller à la ligne dans une cellule excel - Guide
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.
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.
