Colorier les cellules d'un calcul

Bonjour,

Connaissez vous une astuce qui permette de colorier les cellules d'un calcul quand on clique sur la cellule calculée ?

J'écris en B2 : =c4+d9

Quand je clique sur la b2, j'aimerai que c4 et d9 se colorient.

Merci

Fred

Bonsoir,

Lorsqu'on doubleclic sur la cellule calculée les cellules qui entrent dans le calcul se colorient mais ce n'est peut-être pas cela que vous recherchez.

Bonjour,
Une piste à explorer.
Cdlt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDP As Range, Cell As Range
    If Target.CountLarge = 1 Then
        If Target.HasFormula Then
            Set rngDP = Target.DirectPrecedents
            For Each Cell In rngDP
                Cell.Interior.Color = vbYellow
            Next Cell
        Else
            Me.Cells.Interior.Color = xlNone
        End If
    End If
End Sub

Merci Jean-Éric, je vais essayer ça :)

Merci fcyspm30.