Couleur cellule [Résolu]

Signaler
Messages postés
43
Date d'inscription
mardi 8 septembre 2020
Statut
Membre
Dernière intervention
24 octobre 2020
-
Messages postés
43
Date d'inscription
mardi 8 septembre 2020
Statut
Membre
Dernière intervention
24 octobre 2020
-
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/

--

2 réponses

Messages postés
1138
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
25 octobre 2020
113
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

Messages postés
43
Date d'inscription
mardi 8 septembre 2020
Statut
Membre
Dernière intervention
24 octobre 2020
1
Merci beaucoup

--