Total des lignes visibles uniquement

Bonjour, *Rex*

vois Sous-total(9;taplage)

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir à toutes et tous

Et oui, je pose beaucoup de questions ce soir

Il y a des jours comme ça

Si je veut faire le total d'une plage j'utilise =SUM(A4:A34)

Et si je cache les lignes, le total reste le même
Et c'est normale

MAIS

Je voudrais dans ce cas-ci fair uniquement le total des lignes
affichées Et si possible sans passer par un TCD
mais à l'aide d'une formule, d'un formatage, ou à la limite par macro

Donc si je cache les lignes 6,9,25 elles ne seraient pas prises en
compte lors du total

J'espère avoir été assez calir

D'avance merci et à très bientôt

Rex

Bonsoir Patrick

J'ai essayé mais cela ne donne pas

Je sais que j'ai difficile à ma faire comprendre
Ma femme s'en plaint depuis quarante ans ;-(((

Exemple

Dans la colonne A j'ai toute une serie de chiffres dont le total fait 5462

Si je cache toutes les lignes sauf certaines (dépends d'une macro, voir mes
autres postes)
il faudrait que le total ne tiennent en compte que ces lignes là

donc un total de 521


A bientôt si tu as une autre idée

Et surtout un grand merci à toi

Je lis régulièrement tes réponses qui m'ont déjà pas mal aidées

Rex


"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: #k5xK$B6HHA.5740@TK2MSFTNGP04.phx.gbl...

Bonjour, *Rex*

vois Sous-total(9;taplage)

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir à toutes et tous

Et oui, je pose beaucoup de questions ce soir

Il y a des jours comme ça

Si je veut faire le total d'une plage j'utilise =SUM(A4:A34)

Et si je cache les lignes, le total reste le même
Et c'est normale

MAIS

Je voudrais dans ce cas-ci fair uniquement le total des lignes
affichées Et si possible sans passer par un TCD
mais à l'aide d'une formule, d'un formatage, ou à la limite par macro

Donc si je cache les lignes 6,9,25 elles ne seraient pas prises en
compte lors du total

J'espère avoir été assez calir

D'avance merci et à très bientôt

Rex

Bonsoir,

Dans un module:

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

dans le tableur: =SommeVisibles(A2:A34)

http://cjoint.com/?iAxly7Wp2l

JB
http://boisgontierjacques.free.fr/


On 26 août, 23:04, "Rex" <rthompspa...@skynet.be> wrote:

Bonsoir Patrick

J'ai essayé mais cela ne donne pas

Je sais que j'ai difficile à ma faire comprendre
Ma femme s'en plaint depuis quarante ans ;-(((

Exemple

Dans la colonne A j'ai toute une serie de chiffres dont le total fait 5462

Si je cache toutes les lignes sauf certaines (dépends d'une macro, voir mes
autres postes)
il faudrait que le total ne tiennent en compte que ces lignes là

donc un total de 521

A bientôt si tu as une autre idée

Et surtout un grand merci à toi

Je lis régulièrement tes réponses qui m'ont déjà pas mal aidé es

Rex

"Patrick BASTARD" <pasdespambasta...@freepasdespam.fr> a écrit dans le
message denews: #k5xK$B6HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$z__@TK2MSFTNGP04.phx.gbl...

Bonjour, *Rex*

vois Sous-total(9;taplage)

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir à toutes et tous

Et oui, je pose beaucoup de questions ce soir

Il y a des jours comme ça

Si je veut faire le total d'une plage j'utilise =SUM(A4:A34)

Et si je cache les lignes, le total reste le même
Et c'est normale

MAIS

Je voudrais dans ce cas-ci fair uniquement le total des lignes
affichées Et si possible sans passer par un TCD
mais à l'aide d'une formule, d'un formatage, ou à la limite par m acro

Donc si je cache les lignes 6,9,25 elles ne seraient pas prises en
compte lors du total

J'espère avoir été assez calir

D'avance merci et à très bientôt

Rex- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonsour® Rex avec ferveur ;o))) vous nous disiez :

Dans la colonne A j'ai toute une serie de chiffres dont le total fait
5462
Si je cache toutes les lignes sauf certaines (dépends d'une macro,
voir mes autres postes)
il faudrait que le total ne tiennent en compte que ces lignes là
donc un total de 521

d'une pierre deux coups ;o)))

--- la plage concernée est au-dela de H3
(H4:H185) ????
'
Sub SelectStatus()
Application.ScreenUpdating = False
Range([H4], [H185]).EntireRow.Show
letotal=0
For Each c In Range([H4], [H185])
if c.value=[H3] then
letotal = letotal + c.offset(0,-7).value
c.EntireRow.Hidden úlse
else
c.EntireRow.Hidden =true
end if
next c

Application.ScreenUpdating = True
Application.EnableEvents = True ' Secours pour réparer un
éventuel 'arrêt du code Worksheet_Change()
Msgbox "Total " & [H3) & " : " & Letotal
End Sub

--
--
@+
;o)))

Salut Rex,

Essaie ceci :

=SOUS.TOTAL(109;A4:A34)

Serge


"Rex" <rthompspamon@skynet.be> a écrit dans le message de news: O6%23cx1B6HHA.3740@TK2MSFTNGP02.phx.gbl...

Bonsoir à toutes et tous

Et oui, je pose beaucoup de questions ce soir

Il y a des jours comme ça

Si je veut faire le total d'une plage j'utilise =SUM(A4:A34)

Et si je cache les lignes, le total reste le même
Et c'est normale

MAIS

Je voudrais dans ce cas-ci fair uniquement le total des lignes affichées
Et si possible sans passer par un TCD
mais à l'aide d'une formule, d'un formatage, ou à la limite par macro

Donc si je cache les lignes 6,9,25 elles ne seraient pas prises en compte
lors du total

J'espère avoir été assez calir

D'avance merci et à très bientôt

Rex

Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Essaie ceci :

=SOUS.TOTAL(109;A4:A34)

Excellent Serge,
mais inutilisable par les dinosaures car valable uniquement depuis Excel 2003
!!!
;o)))

--
--
@+
;o)))

BonsØir GD

Excellent
..et que dire des T-..

hein Rex!

;o))

@+

Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Essaie ceci :

=SOUS.TOTAL(109;A4:A34)

Excellent Serge,
mais inutilisable par les dinosaures car valable uniquement depuis Excel 2003
!!!
;o)))

--
--
@+
;o)))

Bonsoir et MERCI

Pas de commentaires

J'ai appris deux trucs ce soir

Milliards !!!!!!!! Ma tête va EXPLOSER


A très bientôt et bonne nuit

Rex ;-))) )))


"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1188162728.457254.197090@r34g2000hsd.googlegroups.com...
Bonsoir,

Dans un module:

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

dans le tableur: =SommeVisibles(A2:A34)

http://cjoint.com/?iAxly7Wp2l

JB
http://boisgontierjacques.free.fr/


On 26 août, 23:04, "Rex" <rthompspa...@skynet.be> wrote:

Bonsoir Patrick

J'ai essayé mais cela ne donne pas

Je sais que j'ai difficile à ma faire comprendre
Ma femme s'en plaint depuis quarante ans ;-(((

Exemple

Dans la colonne A j'ai toute une serie de chiffres dont le total fait 5462

Si je cache toutes les lignes sauf certaines (dépends d'une macro, voir
mes

autres postes)
il faudrait que le total ne tiennent en compte que ces lignes là

donc un total de 521

A bientôt si tu as une autre idée

Et surtout un grand merci à toi

Je lis régulièrement tes réponses qui m'ont déjà pas mal aidées

Rex

"Patrick BASTARD" <pasdespambasta...@freepasdespam.fr> a écrit dans le
message denews:
#k5xK$B6HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@TK2MSFTNGP

04.phx.gbl...

Bonjour, *Rex*

vois Sous-total(9;taplage)

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir à toutes et tous

Et oui, je pose beaucoup de questions ce soir

Il y a des jours comme ça

Si je veut faire le total d'une plage j'utilise =SUM(A4:A34)

Et si je cache les lignes, le total reste le même
Et c'est normale

MAIS

Je voudrais dans ce cas-ci fair uniquement le total des lignes
affichées Et si possible sans passer par un TCD
mais à l'aide d'une formule, d'un formatage, ou à la limite par macro

Donc si je cache les lignes 6,9,25 elles ne seraient pas prises en
compte lors du total

J'espère avoir été assez calir

D'avance merci et à très bientôt

Rex- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonsoir

Rex est comme le fromage soufflé, bien fait, et à cet heure ci "pas très
frais"


Mais il est content

Y a juste la dernière ajoute de Modeste que je ne parviens pas à faire
marcher

MAIS

Pour ce soir j'arrête

Un tout grand merci à vous tous

Bonne nuit et à demain après-midi

Rex ;-))))))))))))))))))))))))))))))))))



"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
#R45eiC6HHA.484@TK2MSFTNGP06.phx.gbl...

BonsØir GD

Excellent
..et que dire des T-..

hein Rex!

;o))

@+

Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Essaie ceci :

=SOUS.TOTAL(109;A4:A34)

Excellent Serge,
mais inutilisable par les dinosaures car valable uniquement depuis Excel
2003

!!!
;o)))

--
--
@+
;o)))

On finira par dire que je suis un homme (ou femme) à visages multiples

De l'homme au pneu de Ferrari, à Teapot, en passant par TRex et dernièrement
Rexona

on m'a (et je me suis) donnés pas mal de surnoms


Même mon boss qui l'autre jour a du admettre qu'il y avait quelque chose de
génial en moi


Et dire que malgré tout cela, je vais peut-être me retrouver sans boulot à
la fin de l'année sniff sniff snifff

Enfin comme je l'ai dit, j'ai un petit souci avec ton dernier code

MAIS


Maintenant je vais au lit

Demain je dois être en route avant six heures !!!!


Rex



Oups j'oubliais les ;-)))))))))))))))))))



"Modeste" <nomail@nomail.net> a écrit dans le message de news:
#uC2YcC6HHA.5984@TK2MSFTNGP04.phx.gbl...

Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Essaie ceci :

=SOUS.TOTAL(109;A4:A34)

Excellent Serge,
mais inutilisable par les dinosaures car valable uniquement depuis Excel
2003

!!!
;o)))

--
--
@+
;o)))