XL 2010 Cellule colorée

[mic6259]

Bonjour
Serait-il possible de colorée une cellule en cliquant dessus par exemple quand clic gauche sur A2 elle se colore en bleu puis clic gauche sur D8 en bleu mais la cellule A2 redevienne comme avant, ainsi de suite.
Merci beaucoup

 

[Rouge]

Bonjour,
Essayez ceci, code à coller dans le module de la feuille

Public CouleurPrecedente, SelectionPrecedente

Sub Worksheet_SelectionChange(ByVal sel As Range)
    If Not SelectionPrecedente = "" Then Range(SelectionPrecedente).Interior.ColorIndex = CouleurPrecedente
    SelectionPrecedente = sel.Address
    CouleurPrecedente = sel.Interior.ColorIndex
    sel.Interior.ColorIndex = 41
End Sub

Cdlt

 

[mic6259]

Bonjour,
Essayez ceci, code à coller dans le module de la feuille

Public CouleurPrecedente, SelectionPrecedente

Sub Worksheet_SelectionChange(ByVal sel As Range)
    If Not SelectionPrecedente = "" Then Range(SelectionPrecedente).Interior.ColorIndex = CouleurPrecedente
    SelectionPrecedente = sel.Address
    CouleurPrecedente = sel.Interior.ColorIndex
    sel.Interior.ColorIndex = 41
End Sub

Cdlt

Merci rouge c'est parfait
Cordialement