couleur texte si couleur intérieur celluel

[ototluc]

Bonjour à tous
J'aimerai savoir s'il est possible de donner une couleur à la police du texte lorsque la cellule est d'une certaine couleur.
Pour ma part:
Dans un tableau C7:AV196
si cellule couleur intérieure = 47 (violet)
alors le texte à l'intérieur = 2 (blanc)

Je pense que VBA peut le faire

Merci.

 

[DoubleZero]

Re : couleur texte si couleur intérieur celluel

Bonjour, ototluc, le Forum,

Peut-être ainsi :

Option Explicit
Sub Couleur_si()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("c7:av196")
        If c.Interior.ColorIndex = 47 Then
            c.Font.ColorIndex = 2
        Else
            c.Font.ColorIndex = 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[CISCO]

Re : couleur texte si couleur intérieur celluel

Bonsoir

Tu peux aussi le faire avec une MFC, si la couleur du fond est aussi obtenue grâce à une autre MFC.

@ plus