Conditional Formatting

Salut,

tu places ça dans le module Thisworkbook de ton classeur :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)

If Range("C4").HasFormula = True Then
Range("C4").Interior.ColorIndex = xlColorIndexNone
Else: Range("C4").Interior.ColorIndex = 15
End If

End Sub

Dès que tu remplaces ta formule par quelquechose qui n'est pas une formule,
le fond passe en gris...

Ca convient ?

CAP2

Euh, en partant du principe que la cellule en question est la cellule C4 bien
sûr. A adapter à ta cellule à toi !!

CAP2

Désolé, on va y arriver ;o)

Pour que ce soit spécifique à une seule feuille de calcul, mets plutôt ça
dans le module de ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C4").HasFormula = True Then
Range("C4").Interior.ColorIndex = xlColorIndexNone
Else: Range("C4").Interior.ColorIndex = 15
End If
End Sub

Cette fois, ça doit être à peu près dans les clous ;o))

CAP2

Un grand merci
Mais le probleme c'est que le range est BC6:CX65 et quand je remplace la
formule toute la feille devient grisée. En plus je ne peux pas revenir en
arriere.
A Costa

Désolé, on va y arriver ;o)

Pour que ce soit spécifique à une seule feuille de calcul, mets plutôt ça
dans le module de ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C4").HasFormula = True Then
Range("C4").Interior.ColorIndex = xlColorIndexNone
Else: Range("C4").Interior.ColorIndex = 15
End If
End Sub

Cette fois, ça doit être à peu près dans les clous ;o))

CAP2

J'ai remplace Range ("c4") par ActiveCell et ça va mieux

Désolé, on va y arriver ;o)

Pour que ce soit spécifique à une seule feuille de calcul, mets plutôt ça
dans le module de ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C4").HasFormula = True Then
Range("C4").Interior.ColorIndex = xlColorIndexNone
Else: Range("C4").Interior.ColorIndex = 15
End If
End Sub

Cette fois, ça doit être à peu près dans les clous ;o))

CAP2