Formule Excel tenant compte couleurs texte Fermé

Question

Bonjour à tous,

J'ai des cellules contenant du texte de différentes couleurs dedans, par exemple en A2 j'ai écrit "chien" en noir, "chat" en bleu et "lapin" en bleu.
Je voudrais pouvoir avec un formule,recupérer dans une autre feuille les informations relatives au texte et couleur inscrits dans ma cellule en leur donnant les valeurs 1 ou 0:
par exemples, si A2 contient "lapin" et qu'il est en noir alors valeur = 1 si non 0.

J'ai déjà réussi à récupérer la notion de texte avec la formule suivante : =SI(ESTNUM(CHERCHE("lapin";A2));1;0) mais je trouve rien  pour la couleur

J'espère avoir été assez clair sur ma demande.

Merci.

tontong · Answer

Bonjour,
La première étape consiste à récupérer le code de couleur de police dans une colonne B avec une fonction 
LIRE.CELLULE.
se mettre en B2
- menu ' insertion / nom / définir.'
- nom dans le classeur:'poil'  fait référence à: =LIRE.CELLULE(24;Feuil1!A2), 'Ajouter' ,OK,  Fermer.
-  Si l'argument 24 ne convient pas essayer 64
- en B2 mettre  =poil , B2 récupère le n° de la couleur de police A2
- recopier vers le bas si besoin
Ne fonctionne pas avec les couleurs automatiques ou liées à une MFC.
Ensuite utiliser une fonction Si + ET du genre:
=SI(ET(A2="Lapin";B2=6);1;0)
Un peu de code VBA serait une solution plus académique mais qui sort de ma compétence.

Raymond PENTIER · Answer

Bonjour Rwanit74.
Je crains qu'il n'existe aucune solution à ton problème ...
Car à la limite je pourrais te proposer un artifice, si tes 3 noms de 3 couleurs différentes étaient dans 3 cellules voisines ; mais accolées dans une même cellule ? Je n'entrevois aucune piste !

Rwanit74 · Answer

Bonjour,

Pas mal du tout ta fonction Tontong, très pratique.
Le soucis c'est que dans une même cellule je peux avoir plusieurs couleurs de texte et qu'avec LIRE.CELLULE il reconnait la couleur du premier caractère par défaut.
Il faudrait qu'il puisse reconnaître la couleur du texte dans la cellule en tenant compte du mot cherché... 

comme dit raymond, je ne suis pas certain que ca puisse se faire avec des formules de base. 

mais peut-être qu'en combinant plusieurs formules ou fonctions ???

tontong · Answer

Bonjour Rwanit74,
Comme Raymond je ne vois pas de solution pour faire sortir le "lapin bleu" de sa cage s’il n’est pas tout seul. ;-)
Bonne journée.

smartway14 · Answer

bonjour;
essayez avec cet code
Sub conditon()
Dim Espace As Object
Dim ctr As Integer
Dim nbcel As Integer
Set Espace = Range("A1").CurrentRegion
nbcel = Espace.Count
For cte = 1 To nbcel
If Espace(ctr) = "chien" Then
 If Espace(ctr).Interior.ColorIndex = 0 Then
   Espace(ctr).Offset(0, 1) = "1"
   Else
   Espace(ctr).Offset(0, 1) = "0"
End If
End If
Next
  End Sub

Formule Excel tenant compte couleurs texte

5 réponses

Discussions similaires