Couleur cellule

Résolu
Michest94 Messages postés 83 Statut Membre -  
Michest94 Messages postés 83 Statut Membre -
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

  1. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    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
  2. Michest94 Messages postés 83 Statut Membre 1
     
    Merci beaucoup

    --
    0