La Fonction =SOUS.TOTAL(109;F6:F32) Excel 2000

[Mytå]

Salut le forum

Sous Excel 2000 la fonction

Code: Tout sélectionner

=SOUS.TOTAL(109;F6:F32)

Ignorer les valeurs masquées ne fonctionne pas.

Voilà une alternative par fonction

Code: Tout sélectionner

Public Function SousTotal(Plage As Range)
  Dim Cellule As Range
    Application.Volatile
      For Each Cellule In Plage
        If Rows(Cellule.Row).Hidden = False Then
          SousTotal = SousTotal + Cellule.Value
        End If
      Next Cellule
End Function

Mode d'utilisation

Code: Tout sélectionner

=SousTotal(F6:F32)

Mytå

[dubois]

Bonjour à tous,

J'ai pris bonne note du tuyau
merci Mytå
Claude.