changer texte en fonction couleur cellule

[Annie38]

Bonjour,
Pour une question de presentation plus visuelle d'un planning je voudrai "changer texte en fonction couleur cellule", et je ne trouve que l'inverse sur le forum

Explication: sur une feuille le tableau contient une cellule rouge avec un nbre heures, et je voudrais que dans un autre feuille du même tableau dans la cellule rouge apparaisse "Cath" à la place du nbre heure
A noter que j'ai une dizaine de couleur
Merci à tous

 

[BOISGONTIER]

Re : changer texte en fonction couleur cellule

Bonjour,

Function couleurFondTexte()
  Application.Volatile
  Select Case Range(Application.Caller.Address).Interior.ColorIndex
    Case 3
       couleurFondTexte = "Rouge"
    Case 4
       couleurFondTexte = "Vert"
    Case 6
        couleurFondTexte = "Jaune"
    Case Else
        couleurFondTexte = "JeSaisPas"
   End Select
End Function

JB

 

[Annie38]

Re : changer texte en fonction couleur cellule

Hebé pour etre rapide ça l'est! merci..mais bien ennuyée car pas assez clair pour moi..alors je vous joint mon fichier.
et est il possible en + que la feuille "imprim" se MAJ automatiquement par rapport à celle "essai"
https://www.dropbox.com/s/wmqi3a6td2tjx3o/essai texte cffond cellule.xls

merci++

 

[BOISGONTIER]

Re : changer texte en fonction couleur cellule

Voir pj

Function couleurFondTexte()
  Application.Volatile
  coul = Range(Application.Caller.Address).Interior.Color
  couleurFondTexte = ""
  For i = 1 To Range("coulref").Count
    If coul = couleurfond(Range("coulref")(i)) Then
      couleurFondTexte = Range("coulref")(i)
    End If
  Next i
End Function

Function couleurfond(cel)
  couleurfond = cel.Interior.Color
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCouleurFondTexte.xls

JB

 

[Annie38]

Re : changer texte en fonction couleur cellule

Génial, génial...ça fonctionne impec...merci merci...suis toujours épatée par vous tous qui prenez le tps de voler à notre secours
bonne continuation.et