Somme des cellules visibles

[lanoe]

Bonjour,

J'ai un filtre en colonne D et je cherche une formule qui réalise sans intervention la somme des cellules visibles? je n'ai rien trouvé dans les archives...Une solution????

merci d'avance
Lanoe

 

[jeanpierre]

Re : Somme des cellules visibles

Bonsoir lanoe,

Pas mon truc, surtout sans intervention, mais vois la fonction SOUS.TOTAL qui doit répondre à ton problème...

A te lire.

Jean-Pierre

Note : Dans les archives des milliers de posts sur le sujet.

 

[porcinet82]

Re : Somme des cellules visibles

Salut,

Sinon, via une macro (ici je suppose que les lignes sur lesquelles tu veux faire la somme sont les lignes 1 à 7 et les valeurs à aditionner sont en colonne 1) :

Sub test()
Dim i&, som&
For i = 2 To 7
    If Rows(i).EntireRow.Hidden = False Then
        som = som + Cells(i, 1).Value
    End If
Next i
MsgBox "Somme : " & som
End Sub

@+

 

[BOISGONTIER]

Re : Somme des cellules visibles

Bonsoir,

Fonction perso: calcule la somme des cellules visibles.
Les colonnes et lignes masqués ne sont pas prises en compte:

Function SommeVisibles(champ As Range)
  Application.Volatile
  t = 0
  For Each c In champ
    If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then
      t = t + c.Value
    End If
  Next c
  SommeVisibles = t
End Function

JB
Formation Excel VBA JB