Comptabiliser cellules contenant texte barré

[NANARD26]

Bonjour,
Je souhaiterais additionner une plage de cellules sous la condition suivante : qu’elles contiennent du texte ayant l'attribut ' barré '.
Je ne sais pas si je peux m'en sortir avec les formules, ou bien avec les macros le cas échéant.
Je suis preneur de toutes solutions.
D'avance merci.

 

[PascalXLD]

Bonjour

Regarde le classeur ci-joint avec une petite fonction VBA

Bon courage [file name=Barre.zip size=7498]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Barre.zip[/file]

 

[NANARD26]

Impécable, réponse nette , précise, et fiable.
Merci Pascal

 

[PascalXLD]

Re

Voici un deuxième avec le comptage que si tu n'as qu'une partie du texte barré et pas toute la cellule

Tu as les 2 fonctions dans ce nouveau fichier [file name=Barre_20050411161048.zip size=9196]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Barre_20050411161048.zip[/file]

 

[21ch181]

Bonjour,

Voici une petite macro que je te laisse le soin d'adapter à ta feuille de calcul.
Il s'agit d'une boucle simple qui teste la fonction barré de la police.
Si la polic de la cellule est 'barré' alors le compteur s'incrémente.
Le résultat étant mis dans une cellule particulière de la feuille.

N'hésite à me solliciter si tu n'y parvenais pas.

Cordialement.

i = 1
j = 0
Do While Cells(i, 1) <> Empty
If Cells(i, 1).Font.Strikethrough = True Then
j = j + 1
End If
i = i + 1
Loop
Cells(1, 2) = j


21ch181@wanadoo.fr