XL 2010 Cellule colorée

mic6259 · 9 Juillet 2021

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 · 9 Juillet 2021

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

VB:

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

Rouge · 9 Juillet 2021

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

VB:

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 · 9 Juillet 2021

Rouge à dit:

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

VB:

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

XL 2010 Cellule colorée

mic6259

XLDnaute Occasionnel

Rouge

Rouge

XLDnaute Impliqué

mic6259

XLDnaute Occasionnel

Discussions similaires