somme dans toute cell du classeur

[Temjeh]

Bonsoir à tous

Encore un prob trop dur pour moi

Je sais comment faire la somme de cell dans feuil différente:
En A1 de feuil1:
=SOMME(Feuil2!G52+Feuil3!G52)

Existe-t-il une formule pour faire la somme automatique de G52 mais des feuilles à venir.

Je crée des nouvelles factures et je voudrais qu'il fasse la somme de G52 de nouvelle fact aulieu de refaire ma formule à chaque ajout.


Merci

Temjeh

 

[galopin01]

Bonjour,
Non, c'est plutôt du ressort de VBA
Mais tu peux toujours allèger ta formule de la manière suivante :
=SOMME(Feuil2:Feuil3!G52)

Sinon tu peux aussi coller cette macro dans une feuille pour macro perso

Function SOMFACT()
Dim C As Currency
For i = 2 To Worksheets.Count
C = C + Worksheets(i).[G52].Value
Next
SOMFACT = C
End Function

et tu écris dans Feuil1 !
=SOMFACT()

C'est quand même plus cool, n'est ce pas ?
Ok ?

 

[andré]

Salut vous deux,

En créant au départ une feuille "bidon" (ou tout autre nom) comme dernier onglet (tout à droite) et en plaçant les nouvelles feuilles avant ce dernier, la formule :
=SOMME(Feuil1:bidon!G52)
renverras toujours la bonne réponse, quelque soit le nombre de feuilles entre les Feuil1 et bidon.

Ândré.

 

[Temjeh]

Merci beaucoup à tous les 2

Juste une dernière info;

J'ai ceci pour inséré feuil à la fin

Sheets("Model").Copy After:=Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)

mais le prob avec la formule à andré c'est que la nouvelle feuil doit s'insèrée l'avant dernière pour garder bidon à la fin et aussi ma suite de facture(insèrefact1...insèrefact2...ici...bidon)

J'ai essayé

ActiveSheet.Move After:=Sheets(Sheets.Count)-1 mais pas bon

Merci encore

Temjeh

 

[Bricofire]

Bonjour,
pour ton dernier pb, essayes comme ça...

ActiveSheet.Move After:=Sheets((Sheets.Count) - 1)

A+

Bfr

 

[Temjeh]

Parfait Bricofire c'est excactement ca

Merci beaucoup là j'avance dans mes projets

Là je vais pouvoir me coucher un peu plus intelligent

A++

Temjeh