Faire une somme des cellules visibles uniquement

[lap's]

Once again

Alors j'ai mis la "fonction" suivante sur certaines de mes colonnes :
Donneées -> filtrer -> filtre automatique

Cela me permet d'avoir tous les enregistrements pour une seule personne.
Disons que j'ai une colonne "entrée" et une colonne "sortie" d'argent pour chaque mouvement d'argent de cette personne.

Et donc je voudrais que la colonne a coté de mes colonnes entrées et sorties fasse l'addition des deux colonnes visibles (car entre les enregistrements de la personne 1 il peut y avoir des enregistrements de la personne 2!

Manuellement, excel me demande si je veux rattacher les cellules "proches" ou un truc comme ca alors je mets non et ca fonctionne!

Mais automatiquement je ne peux pas mettre :
somme(A1:A20)-somme(B1:B20)
car les 20 premiers enregistrements ne sont pas qu'a la personne 1!

Heu... je me suis fait comprendre ou je m'embrouille???

Merci

 

[GPLIONEL]

Re : Faire une somme des cellules visibles uniquement

Bonjour lap's

Il me semble qu'avec la fonction sous.total c'est réalisable, mais il faudrait que tu nous joignes un exemple de ton classeur.

 

[Pierrot93]

Re : Faire une somme des cellules visibles uniquement

Bonsoir Laps

essaye avec la fonction "SOUS.TOTAL", comme ci-dessous :

=SOUS.TOTAL(9;A1:A20)-SOUS.TOTAL(9;B1:B20)

BONNE SOIR2E
@=

 

[lap's]

Re : Faire une somme des cellules visibles uniquement



Hé ben dis donc!!!!

Merci GPLIONEL et Pierrot93!

Ca marche EXACTEMENT comme je voulais!!!!

Merci Messieurs chapeau bas

 

[damien2103]

Re : Faire une somme des cellules visibles uniquement

Sous.total(9;x:x) additionne les cellules visibles suite à l'action d'un filtre

Est-il possible d'additionner, de manière générale, les cellules visibles uniquement ? (= ne pas additionner les celulles simplement masquées ou regroupées)

Merci

 

[BOISGONTIER]

Re : Faire une somme des cellules visibles uniquement

Bonjour,

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_SommeCellulesVisibles.xls

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