Modification de la couleur de police d'une cellule change lorsque modification

[sebbbbb]

Bonjour
j'ai une zone dans un tableau excel. j'aimerai que lorsque je modifie une couleur d'une phrase dans une cellule X (non définie dans cette zone) la phrase entière change de couleur.
j'ai essayé ce code sans succès :

Private Sub Worksheet_Activate()
valeur = Range("C30:av52")

End Sub

Private Sub Worksheet_Calculate()
If Range("c30:av52") <> valeur Then
Range("c30:av52").Font.ColorIndex = 5
valeur = Range("c30:av52")
End If
End Sub

quelqu'un a t il une idée svp ?🙂

merci par avance

 

[Calvus]

Bonjour,

Difficile sans fichier, mais peut être que... :

If valeur.Font.ColorIndex <>5 Then
valeur.Font.ColorIndex = 5
End if

A+