formule sur somme selection de feuille classeur

[tinet]

Bonsoir le forum,


Je cherche une formule somme qui me permet de choisir les feuilles que je veux additionner sur la feuille principale en
Début C3 et fin en D3.

Je voudrai que ma formule en B5 à B15 additionne les feuilles en fonction de ma selection en C3 et D3

Exemple de fichier pour comprendre.

A plus

 

[JCGL]

Re : formule sur somme selection de feuille classeur

Bonjour à tous,

Pas de changement .

Il m'étonnerait que Roger se satisfasse de ce genre de réponse...

Moi itou... Peux-tu développer ?

A + à tous

 

[ROGER2327]

Re : formule sur somme selection de feuille classeur

Re...

Roger le forum,

Me revoila.


Pas de changement .

Certes... Mais encore ?


Résumons-nous : j'ai proposé une formule qui fonctionne sous Excel2010 mais qui ne fonctionne pas sous les versions antérieures. Comme il appert que vous utilisez Excel2003, vous ne pourrez-pas utiliser ma formule.
Dans mon message précédent, je propose trois autres formules que je ne peux tester sous Excel2003 car je ne dispose que d'Excel2010. Si vous les avez essayées sans succès sous Excel2003 (ce dont je me doutais), il va falloir trouver autre chose.
Personnellement, je n'ai rien d'autre sous la main...

Conclusion :​

Appel au Peuple !


Qui saura dépanner tinet en lui proposant une solution Excel2003-soluble ?​

Attendons la suite des évènements...​

ROGER2327
#5970

Lundi 2 Gidouille 139 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXX, 5,9633h - thym
2012-W24-6T14:18:43Z

 

[tinet]

Re : formule sur somme selection de feuille classeur

Re,

Merci Roger, Je regarde pour trouver une autre solution car pas possible de changer de versions d'excel.

 

[pierrejean]

Re : formule sur somme selection de feuille classeur

Re

Avec une fonction personnalisée qui devrait fonctionner sous Excel 2003 (testée sous Excel 2000

Edit : Merci JC 😉😉

 

[JCGL]

Re : formule sur somme selection de feuille classeur

Bonjour à tous,

PJ : Application.Volatile et non Application Volatile...

Fonctionne sous XL 2003 :



Il est quand même rageant de ne pas trouver avec les fonctions natives...

A + à tous

 

[tinet]

Re : formule sur somme selection de feuille classeur

Bonsoir à tous,

Merci Pierre jean et le forum pour votre implication.

Je ne comprends pas bien comment calcul la formule mais sa marche sur le fichier teste.

Pierre Jean question en copiant la formule sur mon fichier originale j'ai en résulta ceci #NON?

Donc voici mes questions avez vous rajouter dans le fichier des infos.
Pouvons-nous avoir autant de classeur que l'on souhaite
Pouvons nous renommé les classeurs,
Faut ‘il que les classeurs ce suivent
Pouvons nous utilisé la formule comme exemple une série de classeur comme A1, A2, A3 sur la formule
Et rajouter une autre formule qui calcul d'autre classeur comme B1,B2,B3

A plus

 

[ROGER2327]

Re : formule sur somme selection de feuille classeur

Re...

(...)

Il est quand même rageant de ne pas trouver avec les fonctions natives...

(...)

C'est vrai, mais on aura peut-être une surprise : certains formulistes patentés ont plus d'un tour dans leur sac...

Et, comme l'a montré pierrejean, VisualBasic peut prendre le relais.


Voilà une autre formule personnalisée :​

Function SommeOnglet(deb$, fin$, rad$, cel As Range)
Application.Volatile
Dim i%, j%, d%, f%, n%
    d = CInt(Replace(deb, rad, ""))
    f = CInt(Replace(fin, rad, ""))
    n = cel.Count
    ReDim s#(1 To n, 0)
    For i = d To f: For j = 1 To n
        s(j, 0) = s(j, 0) + Sheets(rad & i).Range(cel(j).Address).Value
    Next j, i
    SommeOnglet = s
End Function

C'est une fonction complètement matricielle ; dans le cas qui nous intéresse, il faut :

1. Sélectionner une plage de onze cellules en colonne.
2. Saisir

   =SommeOnglet($C$3;$D$3;"Feuil";$B$5:$B$15)

   dans la première cellule sélectionnée.
3. Valider par Ctrl Maj Entrée

Forme générale :​

=SommeOnglet(Nom_du_premier_onglet_à_traiter;Nom_du_dernier_onglet_à_traiter;Préfixe_du_nom_d'onglet;Plage_de_données_à_traiter_dans_chaque_onglet)

Ce qui signifie que si on voulait traiter les onglets nommés TATA98 à TATA105 en sommant la plage Z97:Z107 de chacun d'eux, on écrirait :

=SommeOnglet("TATA98";"TATA105";"TATA";Z97:Z107)

Une variante plus simple différant seulement par le paramétrage :​

Function SommeOnglet1(rad$, deb%, fin%, cel As Range)
Application.Volatile
Dim i%, j%, n%
    n = cel.Count
    ReDim s#(1 To n, 0)
    For i = deb To fin: For j = 1 To n
        s(j, 0) = s(j, 0) + Sheets(rad & i).Range(cel(j).Address).Value
    Next j, i
    SommeOnglet1 = s
End Function

Avec l'exemple précédent, on écrirait :

=SommeOnglet1("TATA";98;105;Z97:Z107)

On peut certainement en fabriquer beaucoup d'autres...​

ROGER2327
#5972

Lundi 2 Gidouille 139 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXX, 9,0743h - thym
2012-W24-6T21:46:42Z

 

[tinet]

Re : formule sur somme selection de feuille classeur

Bonsoir Roger

Je ne suis pas un spécialiste en VBA.

Tu as un exemple.

 

[ROGER2327]

Re : formule sur somme selection de feuille classeur

Re...


Il est vrai que quelques exemples peuvent être utiles...
Les deux fichiers sont en fait un seul fichier, dans deux formats différents.


ROGER2327
#5973

Lundi 2 Gidouille 139 (Saint Lucullus, amateur(Bloosday) - fête Suprême Quarte)
28 Prairial An CCXX, 9,3823h - thym
2012-W24-6T22:31:03Z

 

[pierrejean]

Re : formule sur somme selection de feuille classeur

Re

Pour tinet:

Le #NOM? signifie probablement que tu as omis de recopier le code de la fonction dans un module standard
Pour le reste, je regarde
Mais les propositions de ROGER sont à tester en priorité

 

[tinet]

Re : formule sur somme selection de feuille classeur

Bonsoir Roger, Pierre Jean le forum,

Merci pour ta solution Roger c'est super et pour l'aide de Pierre Jean.

Merci