Couleur cellule

Résolu/Fermé
Michest94 Messages postés 82 Date d'inscription mardi 8 septembre 2020 Statut Membre Dernière intervention 8 août 2021 - 22 oct. 2020 à 18:08
Michest94 Messages postés 82 Date d'inscription mardi 8 septembre 2020 Statut Membre Dernière intervention 8 août 2021 - 22 oct. 2020 à 19:33
Bonjour,

Comment changer la couleur d'une cellule quand elle devient active et quelle reprenne sa couleur initiale quand elle est inactive.

Merci,

https://mon-partage.fr/f/Pev5DmNg/

--
A voir également:

2 réponses

Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
22 oct. 2020 à 18:45
Bonsoir,
pour la cellule F9, code à placer dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Range("F9").Interior.ColorIndex = 46
        If Not Application.Intersect(Range("F9"), Target) Is Nothing Then
            ActiveCell.Interior.ColorIndex = 4
        End If
    End Sub

0
Michest94 Messages postés 82 Date d'inscription mardi 8 septembre 2020 Statut Membre Dernière intervention 8 août 2021 1
22 oct. 2020 à 19:33
Merci beaucoup

--
0