Compter celllule non barrées suite à une MFC

Bonjour

partant d'une macro

Function SomCond#(ParamArray r())

Application.Volatile

Dim i&, oCel As Range

For i = 0 To UBound(r)

For Each oCel In r(i).Cells

If oCel.Font.Strikethrough = False Then

If IsNumeric(oCel.Value) Then

SomCond = SomCond + oCel.Value

End If

End If

Next oCel

Next i

End Function

je voudrais compter le nombre de cellule dont le texte est non barrée.

ce texte est barré ou non suit à une mise en forme conditionnelle activée en fonction d'un texte d'une autre cellule

lamacro ne "voit" cette mfc

y a t il un moyen de complèter cette macro , car j'avoue que je n'ai pas d'idée.

Ou faut- il mettre une MFC différente par exemple une couleur et ne compter que les cellules présentant cette couleur et soustraire au total

merci de votre aide

Bonjour,

Essaie avec

Option Explicit
Function SomCond#(ParamArray r())
Application.Volatile
Dim i&, oCel As Range
   For i = 0 To UBound(r)
      For Each oCel In r(i).Cells
         If oCel.Font.Strikethrough = False Then
            If IsNumeric(oCel.Value) And UCase(Cells(oCel.Row, 3)) <> "X" Then
               SomCond = SomCond + oCel.Value
            End If
         End If
      Next oCel
   Next i
End Function

A+

Merci Frangy

cela me convient parfaitement et j'ai appris une nouveauté

sincèrement merci pour ton aide