compter nombre de cellule avec prix barré en VBA

[nicroq]

Bonjour a tous et merci pour votre aide,

je souhaiterai faire par VBA le calcul du nombre de cellules ayant un prix barré ?

merci

bonne journée

 

[gilbert_RGI]

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

Bonjour,

avec ceci !

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

 

[nicroq]

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

 

[nicroq]

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

oupss le fichier

 

[gilbert_RGI]

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

comme ceci

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

 

[nicroq]

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

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