Insert text depending on font colour

[Tricia]

I have a list and was wondering how to do this:

I want to insert a certain word at the beginning of the paragraph in each
cell that has red font. A different word for blue font, yellow font etc. If
the font colour thing is no good, I could make the cell background different
colours.

 

[JB]

With UDF

http://cjoint.com/?fpvoz8csOq

Function couleurFondTexte()
Application.Volatile
Select Case Range(Application.Caller.Address).Interior.ColorIndex
Case 3
couleurFondTexte = "Red"
Case 4
couleurFondTexte = "Green"
Case 6
couleurFondTexte = "Yellow"
Case Else
couleurFondTexte = "???"
End Select
End Function

JB
http://boisgontierjacques.free.fr

 

[JB]

With UDF

http://cjoint.com/?fpvoz8csOq

Function couleurFondTexte()
Application.Volatile
Select Case Range(Application.Caller.Address).Interior.ColorIndex
Case 3
couleurFondTexte = "Red"
Case 4
couleurFondTexte = "Green"
Case 6
couleurFondTexte = "Yellow"
Case Else
couleurFondTexte = "???"
End Select
End Function

JB
http://boisgontierjacques.free.fr