Recherche de mots barrés

[gui59300]

Bonjour

Avec excel peut on trouver une formule qui est capable d'aller voir ci dans la cellule il y a des mots précis qui sont barrés ?

 

[gui59300]

Re : Recherche de mots barrés

Voici un morceau du fichier. en faite j'essaye de trouvé une formule qui m'inscrit 1 ou 0 en G quand il me reste caméra de non barré.

 

[BOISGONTIER]

Re : Recherche de mots barrés

Bonjour,

Function EstBarréMot(c, mot)
 Application.Volatile
 témoin = False
 For i = 1 To Len(c) - Len(mot)
   temp = c.Characters(Start:=i, Length:=Len(mot)).Font.Strikethrough
   If temp And Mid(c, i, Len(mot)) = mot Then témoin = True
 Next i
 EstBarréMot = témoin
End Function

JB
Formation Excel VBA JB

 

[BOISGONTIER]

Re : Recherche de mots barrés

Voir PJ

JB