cellule barré

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Octobre 2009

• #2

Re : cellule barré

Bonjour,

Fonction perso dans un module:

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

Voir PJ

JB

 

Pièces jointes

• Fonction barre.xls

  21.5 KB · Affichages: 316
• Fonction barre.xls

  21.5 KB · Affichages: 300
• Fonction barre.xls

  21.5 KB · Affichages: 309

Dernière édition: 20 Octobre 2009

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 20 Octobre 2009

• #3

Re : cellule barré

BOISGONTIER à dit:

Bonjour,

Fonction perso dans un module:

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

Voir PJ

JB

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Octobre 2009

• #4

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

 

Pièces jointes

• Fonction barre.xls

  22 KB · Affichages: 203
• Fonction barre.xls

  22 KB · Affichages: 211
• Fonction barre.xls

  22 KB · Affichages: 221

Dernière édition: 20 Octobre 2009

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 20 Octobre 2009

• #5

Re : cellule barré

Salut gui59300, BOIGONTIERS 🙂, le Forum

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

Code:

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

Bonne Journée

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Octobre 2009

• #6

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

 

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 20 Octobre 2009

• #7

Re : cellule barré

Dull à dit:

Salut gui59300, BOIGONTIERS 🙂, le Forum

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

Code:

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

Bonne Journée

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 20 Octobre 2009

• #8

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

Code:

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

 

Vote positif 0 Vote négatif

G

gui59300

XLDnaute Occasionnel

• 20 Octobre 2009

• #9

Re : cellule barré

merci à tous ça fonctionne très bien

 

Vote positif 0 Vote négatif