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.

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 ! C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂

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 ???

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.

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