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

Réponses
34
Affichages
1 K

Membres actuellement en ligne

Statistiques des forums

Discussions
314 013
Messages
2 104 547
Membres
109 077
dernier inscrit
FCachats