[XL-2003] Fonction si le texte est barré [Résolu]

[Nikodemus]

Bonjour,
J'ai une colonne avec des données qui peuvent être barrées (Format/Cellules/Police/Barré).
J'aimerai ajouter une colonne à côté avec une fonction "Si" qui me renvoit "FAUX" si la police est barrée et "VRAI" si elle ne l'ai pas.

Code :

=SI(A2= ? ;"VRAI";"FAUX")

Comment savoir le format de la cellule ?

Merci d'avance.

[Nikodemus]

J'ai trouvé.
Pour ceux que ça interesse :

- Mettre dans un module

Code :

1
2
3
4
Function EstBarré(c)
  Application.Volatile
  EstBarré = c.Font.Strikethrough
End Function

- Mettre dans une cellule

Code :

=SI(NON(estbarré(A2));"BON";"BARRÉ")