formule sur somme selection de feuille classeur

JCGL

XLDnaute Barbatruc

• 16 Juin 2012

• #16

Re : formule sur somme selection de feuille classeur

Bonjour à tous,

tinet à dit:

Pas de changement .

Cliquez pour agrandir...

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

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

A + à tous

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juin 2012

• #17

Re : formule sur somme selection de feuille classeur

Re...

tinet à dit:

Roger le forum,

Me revoila.


Pas de changement .

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 16 Juin 2012

• #18

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Juin 2012

• #19

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 😉😉

 

Pièces jointes

• Classeurvv.xls

  46 KB · Affichages: 42
• Classeurvv.xls

  46 KB · Affichages: 43
• Classeurvv.xls

  46 KB · Affichages: 55

Dernière édition: 16 Juin 2012

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Juin 2012

• #20

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

 

Pièces jointes

• Capture_6.png

  31.2 KB · Affichages: 124

Dernière édition: 16 Juin 2012

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 16 Juin 2012

• #21

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juin 2012

• #22

Re : formule sur somme selection de feuille classeur

Re...

JCGL à dit:

(...)

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

(...)

Cliquez pour agrandir...

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 :​

VB:

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
   Code:

   =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 :​

Code:

=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 :

Code:

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

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

VB:

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 :

Code:

=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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 16 Juin 2012

• #23

Re : formule sur somme selection de feuille classeur

Bonsoir Roger

Je ne suis pas un spécialiste en VBA.

Tu as un exemple.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 17 Juin 2012

• #24

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

 

Pièces jointes

• XLD_186666_Somme_onglets_multiples.xls

  72.5 KB · Affichages: 50
• XLD_186666_Somme_onglets_multiples.xlsm

  29.3 KB · Affichages: 61

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Juin 2012

• #25

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é

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 18 Juin 2012

• #26

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

 

Vote positif 0 Vote négatif