Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 !

Merci bien de votre aide
 

jeanpierre

Nous a quitté
Repose en paix
Re : Appliquer texte selon couleur de cellule

Re,

Tu as quelle version d'excel, car sous 2000, cela ne marche pas.

D'où l'intérêt de renseigner, dans son profil, ou l'indiquer sur les post cette version....
 

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…