cellule barré

[gui59300]

Bonjour

Dans excel il y a une formule qui peut reconnaitre ci le texte d'une cellule est barré?

 

[BOISGONTIER]

Re : cellule barré

Bonjour,

Fonction perso dans un module:

Function barré(c)
Application.Volatile
barré = c.Font.Strikethrough
End Function

Voir PJ

JB

 

[gui59300]

Re : cellule barré

Bonjour,

Fonction perso dans un module:

Function barré(c)
Application.Volatile
barré = c.Font.Strikethrough
End Function

Voir PJ

JB

La formule fonctionne mais il y a juste un petit problème c'est que si je me retrouve avec beaucoup de date en E si D contient beaucoup de date, il ne me recopie pas seulement la dernière date.

 

[BOISGONTIER]

Re : cellule barré

Voir PJ

=SI(NON(estbarré(B2));"";SI(ESTERREUR(CHERCHE(",";C2));C2;DROITE(C2;EQUIV(",";STXT(C2;NBCAR(C2)-LIGNE($1:$249);1);0))
))

JB

 

[Dull]

Re : cellule barré

Salut gui59300, BOIGONTIERS 🙂, le Forum

En reprenant la Formule de Jacques j'aurais fait simplement en E8

=SI(NON(barré(C8));"";SI(ESTERREUR(CHERCHE(",";D8));D8;DROITE(D8;8)))

Bonne Journée

 

[BOISGONTIER]

Re : cellule barré

>DROITE(D8;8)

A condition que les dates soient saisies sur 8 caractères.

Incident Dates Dernière date
A fuite porte 1 18/1/09,19/1/09,22/1/2009
B fuite porte 3 2/10/2009,9/10/2009
C fuite baie 2 19/10/09


JB

 

[gui59300]

Re : cellule barré

Salut gui59300, BOIGONTIERS 🙂, le Forum

En reprenant la Formule de Jacques j'aurais fait simplement en E8

=SI(NON(barré(C8));"";SI(ESTERREUR(CHERCHE(",";D8));D8;DROITE(D8;8)))

Bonne Journée

Bonjour avec ta formule j'ai besoin de mettre le code en vba ou non?

 

[Dull]

Re : cellule barré

Re le Fil

C'est vrai Jacques je n'ai pris pour exemple que... l'exemple😱. Les dates ne portaient que sur 8 caractères. Mais effectivement si on doit chercher les caractères entre les virgules et les comparer à une date, ta formule est d'une redoutable efficacité Merci pour ce partage🙂

Par contre j'aurais mis dans le Module de la Feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

pour que la validation soit instantané

Pour répondre à gui59300 Oui il faut mettre la Function de BOIGONTIERS car c'est une fonction qui permet de savoir si la cellule est barré ou non. sans elle le test ne ce fait pas.

Bonne Journée

 

[gui59300]

Re : cellule barré

merci à tous ça fonctionne très bien