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 🙄