Appliquer texte selon couleur de cellule

Stu

XLDnaute Nouveau
Bonjour,

J'ai un besoin spécifique assez urgent pour mon travail.

J'ai un tableau avec des cellules de couleur, rouge si acquis, vert si non.

Afin de pouvoir faire des tris, j'aimerais pouvoir créer une formule automatique qui mettra un texte spécifique selon la couleur de la cellule :)

Help ! :D

Merci bien de votre aide
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Appliquer texte selon couleur de cellule

Bonsoir,

Code:
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
Formation Excel VBA JB
 

Pièces jointes

  • Classeur1.xls
    21.5 KB · Affichages: 87
  • Classeur1.xls
    21.5 KB · Affichages: 86
  • Classeur1.xls
    21.5 KB · Affichages: 91

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
313 004
Messages
2 094 321
Membres
105 993
dernier inscrit
Fred60600