faire une somme avec des colonnes masquées

Bonjour,

Dans un module: Alt+F11 puis Insertion/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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
calcultate
End Sub

Dans une cellule: =sommevisibles(B1:H1)

Cordialement JB

Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

MErci beaucoup

çà, fonctionne impécablement bien, c'est exactement ce que je voulais !

cordialement

Bonjour,

Dans un module: Alt+F11 puis Insertion/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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
calcultate
End Sub

Dans une cellule: =sommevisibles(B1:H1)

Cordialement JB

Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

Il y a aussi cette fonction :

Requiert Excel 2003 - Possible peut être avec Excel 2002
à vérifier la fonction sous-total.
'----------------------
Function AddVisible(Rg As Range)
AddVisible = Evaluate("SUBTOTAL(109," & Rg.Address & ")")
End Function
'----------------------

Dans la cellule où tu veux additionner ta plage :

­dVisible(A1:A50)


"oly22" <oly22@discussions.microsoft.com> a écrit dans le message de news:
FFA35A81-3FD9-47AB-B542-A66E821F3A7C@microsoft.com...
Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

Ne semble pas fonctionner sur 2003.

http://cjoint.com/?kenrSbaHvn

JB

Il y a aussi cette fonction :

Requiert Excel 2003 - Possible peut être avec Excel 2002
à vérifier la fonction sous-total.
'----------------------
Function AddVisible(Rg As Range)
AddVisible = Evaluate("SUBTOTAL(109," & Rg.Address & ")")
End Function
'----------------------

Dans la cellule où tu veux additionner ta plage :

=AddVisible(A1:A50)


"oly22" <oly22@discussions.microsoft.com> a écrit dans le message de ne ws:
FFA35A81-3FD9-47AB-B542-A66E821F3A7C@microsoft.com...
Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

Je te réfères à l'aide d'excel...puisque tu as la version 2003 d'excel.
Et tu leur adresses tous les "marche pas" que tu veux.

Au survol rapide de la question, il semblait que le demandeur
voulait additionner une (des colonnes)...quand j'addtionne
la colonne A cela se fait verticalement et non pas horizontalement.

Ceci étant, si cela ne plaît à l'usager, ou son besoin est autre,
il utilisera une autre méthode... je ne fais que des suggestions
et non pas le travail à la place du demandeur !

Tes propos sont tendancieux pour ne pas dire insidieux !!!
à la limite, ce sont des propos de néophytes qui prêchent par ignorance.!!!!



"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159960747.987684.141590@i3g2000cwc.googlegroups.com...
Ne semble pas fonctionner sur 2003.

http://cjoint.com/?kenrSbaHvn

JB

Il y a aussi cette fonction :

Requiert Excel 2003 - Possible peut être avec Excel 2002
à vérifier la fonction sous-total.
'----------------------
Function AddVisible(Rg As Range)
AddVisible = Evaluate("SUBTOTAL(109," & Rg.Address & ")")
End Function
'----------------------

Dans la cellule où tu veux additionner ta plage :

­dVisible(A1:A50)


"oly22" <oly22@discussions.microsoft.com> a écrit dans le message de news:
FFA35A81-3FD9-47AB-B542-A66E821F3A7C@microsoft.com...
Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

Le post original demandait

1-

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la MEME LIGNE, à condition qu e ces
COLONNES precedentes NE SOIENT PAS MASQUEES...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Je persiste donc. Sur mon poste en Excel2003, cette fonction donne la
somme de toutes les colonnes, Y COMPRIS MASQUEES.
Mes propos n'ont donc rien de tendencieux ou d'insidieux.

2-

à la limite, ce sont des propos de NEOPHYTES qui prêchent par IGNORA NCE.!!!!

Le premier livre que j'ai écris (le Basic et ses Fichier) a été
vendu à 100.000 exemplaires(voir PJ), traduit en plusieurs langues
(Anglais, Italien,Espagnol,...).
Au total, j'ai écris +20 livres (Pascal, Lotus, Langage C, dBase,...)

http://cjoint.com/?keomZCYGuS

JB

Je te réfères à l'aide d'excel...puisque tu as la version 2003 d'ex cel.
Et tu leur adresses tous les "marche pas" que tu veux.

Au survol rapide de la question, il semblait que le demandeur
voulait additionner une (des colonnes)...quand j'addtionne
la colonne A cela se fait verticalement et non pas horizontalement.

Ceci étant, si cela ne plaît à l'usager, ou son besoin est autre,
il utilisera une autre méthode... je ne fais que des suggestions
et non pas le travail à la place du demandeur !

Tes propos sont tendancieux pour ne pas dire insidieux !!!
à la limite, ce sont des propos de néophytes qui prêchent par ignor ance.!!!!



"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159960747.987684.141590@i3g2000cwc.googlegroups.com...
Ne semble pas fonctionner sur 2003.

http://cjoint.com/?kenrSbaHvn

JB

Il y a aussi cette fonction :

Requiert Excel 2003 - Possible peut être avec Excel 2002
à vérifier la fonction sous-total.
'----------------------
Function AddVisible(Rg As Range)
AddVisible = Evaluate("SUBTOTAL(109," & Rg.Address & ")")
End Function
'----------------------

Dans la cellule où tu veux additionner ta plage :

=AddVisible(A1:A50)


"oly22" <oly22@discussions.microsoft.com> a écrit dans le message de news:
FFA35A81-3FD9-47AB-B542-A66E821F3A7C@microsoft.com...
Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire ...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à conditi on que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujou rs les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

Que je n'ai pas saisi ce que le demandeur voulait c'est possible
ce n'est pas la première fois et probablement pas la dernière !

Qu'une éminence, à la vue de la fonction Sous-total()
qu'utilisait ma fonction personnalisée
avec l'exemple ­dVisible(A1:A50)
relance avec un exemple qui additionne les cellules d'une même ligne,
qui outre passe les limites de la fonction sous-total(),
ça c'est ahurissant et tendancieux...dénaturer l'exemple
que j'avais donné pour je ne sais quel fin !!!

Pour ce qui est de ta bibliographie, je n'en ai rien à cirer.
Je ne suis pas informaticien de carrière... je ne suis ici que pour
mon bon plaisir et m'amuser.



"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159964450.954039.28050@e3g2000cwe.googlegroups.com...
Le post original demandait

1-

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la MEME LIGNE, à condition que ces
COLONNES precedentes NE SOIENT PAS MASQUEES...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Je persiste donc. Sur mon poste en Excel2003, cette fonction donne la
somme de toutes les colonnes, Y COMPRIS MASQUEES.
Mes propos n'ont donc rien de tendencieux ou d'insidieux.

2-

à la limite, ce sont des propos de NEOPHYTES qui prêchent par IGNORANCE.!!!!

Le premier livre que j'ai écris (le Basic et ses Fichier) a été
vendu à 100.000 exemplaires(voir PJ), traduit en plusieurs langues
(Anglais, Italien,Espagnol,...).
Au total, j'ai écris +20 livres (Pascal, Lotus, Langage C, dBase,...)

http://cjoint.com/?keomZCYGuS

JB

Je te réfères à l'aide d'excel...puisque tu as la version 2003 d'excel.
Et tu leur adresses tous les "marche pas" que tu veux.

Au survol rapide de la question, il semblait que le demandeur
voulait additionner une (des colonnes)...quand j'addtionne
la colonne A cela se fait verticalement et non pas horizontalement.

Ceci étant, si cela ne plaît à l'usager, ou son besoin est autre,
il utilisera une autre méthode... je ne fais que des suggestions
et non pas le travail à la place du demandeur !

Tes propos sont tendancieux pour ne pas dire insidieux !!!
à la limite, ce sont des propos de néophytes qui prêchent par ignorance.!!!!



"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159960747.987684.141590@i3g2000cwc.googlegroups.com...
Ne semble pas fonctionner sur 2003.

http://cjoint.com/?kenrSbaHvn

JB

Il y a aussi cette fonction :

Requiert Excel 2003 - Possible peut être avec Excel 2002
à vérifier la fonction sous-total.
'----------------------
Function AddVisible(Rg As Range)
AddVisible = Evaluate("SUBTOTAL(109," & Rg.Address & ")")
End Function
'----------------------

Dans la cellule où tu veux additionner ta plage :

­dVisible(A1:A50)


"oly22" <oly22@discussions.microsoft.com> a écrit dans le message de news:
FFA35A81-3FD9-47AB-B542-A66E821F3A7C@microsoft.com...
Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

sans vouloir me meler de votre polemqiue, additionner les cellules d'une même
ligne c'est exactement ce que je voulias faire

j'aivais déjà essayer la fonction sous total (avec la varialbe 109) mais çà
ne fonctionnait pas

merci encore en tout cas

Que je n'ai pas saisi ce que le demandeur voulait c'est possible
ce n'est pas la première fois et probablement pas la dernière !

Qu'une éminence, à la vue de la fonction Sous-total()
qu'utilisait ma fonction personnalisée
avec l'exemple ­dVisible(A1:A50)
relance avec un exemple qui additionne les cellules d'une même ligne,
qui outre passe les limites de la fonction sous-total(),
ça c'est ahurissant et tendancieux...dénaturer l'exemple
que j'avais donné pour je ne sais quel fin !!!

Pour ce qui est de ta bibliographie, je n'en ai rien à cirer.
Je ne suis pas informaticien de carrière... je ne suis ici que pour
mon bon plaisir et m'amuser.



"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159964450.954039.28050@e3g2000cwe.googlegroups.com...
Le post original demandait

1-

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la MEME LIGNE, à condition que ces
COLONNES precedentes NE SOIENT PAS MASQUEES...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Je persiste donc. Sur mon poste en Excel2003, cette fonction donne la
somme de toutes les colonnes, Y COMPRIS MASQUEES.
Mes propos n'ont donc rien de tendencieux ou d'insidieux.

2-

à la limite, ce sont des propos de NEOPHYTES qui prêchent par IGNORANCE.!!!!

Le premier livre que j'ai écris (le Basic et ses Fichier) a été
vendu à 100.000 exemplaires(voir PJ), traduit en plusieurs langues
(Anglais, Italien,Espagnol,...).
Au total, j'ai écris +20 livres (Pascal, Lotus, Langage C, dBase,...)

http://cjoint.com/?keomZCYGuS

JB

Je te réfères à l'aide d'excel...puisque tu as la version 2003 d'excel.
Et tu leur adresses tous les "marche pas" que tu veux.

Au survol rapide de la question, il semblait que le demandeur
voulait additionner une (des colonnes)...quand j'addtionne
la colonne A cela se fait verticalement et non pas horizontalement.

Ceci étant, si cela ne plaît à l'usager, ou son besoin est autre,
il utilisera une autre méthode... je ne fais que des suggestions
et non pas le travail à la place du demandeur !

Tes propos sont tendancieux pour ne pas dire insidieux !!!
à la limite, ce sont des propos de néophytes qui prêchent par ignorance.!!!!



"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159960747.987684.141590@i3g2000cwc.googlegroups.com...
Ne semble pas fonctionner sur 2003.

http://cjoint.com/?kenrSbaHvn

JB

Il y a aussi cette fonction :

Requiert Excel 2003 - Possible peut être avec Excel 2002
à vérifier la fonction sous-total.
'----------------------
Function AddVisible(Rg As Range)
AddVisible = Evaluate("SUBTOTAL(109," & Rg.Address & ")")
End Function
'----------------------

Dans la cellule où tu veux additionner ta plage :

­dVisible(A1:A50)


"oly22" <oly22@discussions.microsoft.com> a écrit dans le message de news:
FFA35A81-3FD9-47AB-B542-A66E821F3A7C@microsoft.com...
Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

RE bonjour

sans vouloir être perfectionniste, le seul defaut est que lorsque je masque
ou j'affiche une colonne, le resultat de la formule =sommevisibles(B1:H1)
n'est pas mis à jour, je dois appuyer sur F9 pour avoir le bon resultat

Je precise que l'option calcul automatique est bien active dans les options
Excel

merci d'avance s'il existe une solution à ce petit problème

MErci beaucoup

çà, fonctionne impécablement bien, c'est exactement ce que je voulais !

cordialement

Bonjour,

Dans un module: Alt+F11 puis Insertion/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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
calcultate
End Sub

Dans une cellule: =sommevisibles(B1:H1)

Cordialement JB

Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment faire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des nombres
figurant dans les colonnes precedentes sur la même ligne, à condition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance

Bonjour,


http://cjoint.com/?kkrwebp7bt

Il faut placer dans le code feuille( clic-droit onglet puis visualiser
code)
Dès que l'on clique sur une cellule, la feuille est mise à jour.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub


Code 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

Cordialement JB

RE bonjour

sans vouloir être perfectionniste, le seul defaut est que lorsque je ma sque
ou j'affiche une colonne, le resultat de la formule =sommevisibles(B1:H 1)
n'est pas mis à jour, je dois appuyer sur F9 pour avoir le bon resultat

Je precise que l'option calcul automatique est bien active dans les optio ns
Excel

merci d'avance s'il existe une solution à ce petit problème

MErci beaucoup

çà, fonctionne impécablement bien, c'est exactement ce que je vou lais !

cordialement

Bonjour,

Dans un module: Alt+F11 puis Insertion/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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
calcultate
End Sub

Dans une cellule: =sommevisibles(B1:H1)

Cordialement JB

Bonjour

voilà çà à l'air tout bête ,mais je ne vois pas comment f aire...

j'ai une feuille de calcul surlaquelle figure un tableau

je voudrais que la derniere colonne du tableau face la somme des no mbres
figurant dans les colonnes precedentes sur la même ligne, à con dition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas to ujours les
mêmes colonnes que je masque)

Est-ce possible d'apres vous ?

Merci d'avance