compter nombre de cellule avec prix barré en VBA

gilbert_RGI

XLDnaute Barbatruc

• 25 Juin 2015

• #2

Re : compter nombre de cellule avec prix barré en VBA

Bonjour,

avec ceci !

VB:

Sub test()
    Dim Cel As Range
    For Each Cel In Worksheets("feuil1").UsedRange
        Cel.Select
        If Cel <> "" And Selection.Font.Strikethrough = True Then x = x + 1
    Next
    MsgBox x
End Sub

 

Dernière édition: 25 Juin 2015

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 25 Juin 2015

• #3

Re : compter nombre de cellule avec prix barré en VBA

merci pour votre reponse rapide!
cependant quand je l integre dans mon fichier dans un module sous forme de fonction cela ne marche pas..

pourriez vous maider?

merci
cdlt

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 25 Juin 2015

• #4

Re : compter nombre de cellule avec prix barré en VBA

oupss le fichier

 

Pièces jointes

• prix barré.xlsm

  12.9 KB · Affichages: 10

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 25 Juin 2015

• #5

Re : compter nombre de cellule avec prix barré en VBA

comme ceci

VB:

Function nbarré(champ As Range)
    Application.Volatile
    nbarré = 0
    For Each Cel In champ
        If Cel <> "" And Cel.Font.Strikethrough = True Then
            nbarré = nbarré + 1
        End If
    Next Cel
End Function

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 25 Juin 2015

• #6

Re : compter nombre de cellule avec prix barré en VBA

Super !!ca marche nikel!!
merci bcq pour votre précieuse aide!!
bonne soirée

 

Vote positif 0 Vote négatif