Discussion :

[Pantagruel92]

Bonjour à tous,
voilà mon problème : Je travaille sur un dossier Excel qui a n feuilles. n varie avec le temps (Quand je traite une nouvelle personne, je lui crée une nouvelle feuille). Ces feuilles sont identiques et possèdent une zone (appelons-là "zone") avec des nombres. Je voudrais que, dans une dernière feuille fixe et récapitulative ( la n+1ème), chaque cellule de "zone" soit la somme des n cellules correspondantes des n premières feuilles.
Ce résultat me semble impossible à obtenir par une formule. Mais je ne vois pas non plus le code VBA qui amène au résultat...Je ne sais pas dire :
"For Each feuille sauf la dernière" ou
"For Each feuille sauf la première" en déplaçant ma feuille récapitulative en tête.
Merci de votre aide
Jacques

[jfontaine]

Bonjour,

Cela est faisable avec la formule Somme

En plaçant cette formule dans la cellule A1 de la feuil8, on obtiendra la somme des cellules A1 des se trouvant entre Feuil1 et Feuil7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(Feuil1:Feuil7!A1)

[Pantagruel92]

Merci, Jerome, mais tu n'as pas lu le vrai problème : je ne sais pas combien il y a de feuilles, et donc de zones à ajouter....OK?

[Golonne]

Je ne sais pas dire : "For Each feuille sauf la dernière" ou
"For Each feuille sauf la première" en déplaçant ma feuille récapitulative en tête.
Merci de votre aide
Jacques

Bonjour Jacques,

Tu peux essayer une boucle plutôt qu'une énumération, du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wbClasseur = ThisWorkbook
      For i = 1 To wbClasseur.Worksheets.Count - 1
          'ici le code pour traiter ta zone (plage de cellules ?)
      Next i

Cordialement,

Guillaume

[jfontaine]

J'ai du mal à visualiser la feuille récapitulative.
Tu veux avoir en A1 la somme des cellules A1 des autres feuilles, ou avoir la liste des feuilles avec leur valeur en A1?

[Pantagruel92]

Jerome,
je veux que A1 (par exemple) de la feuille resume soit la somme de toutes les A1 des autres feuilles.
Guillaume,
d'accord, mais comment indiquer, dans la boucle, la meme cellule de chaque feuille? est-ce qu ce qui suit marche?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wbClasseur = ThisWorkbook
      For i = 2 To wbClasseur.Worksheets.Count - 1
          worksheets.("resume").Range("A1") = worksheets.("resume").Range("A1")  + worksheets(i).Range("A1")
      Next i

Je vais le tester. mais je suis sur une autre piste : modifier la formule dans la cellule A1 de "resumé" dès que je crée une nouvelle feuille. quelque chose comme ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
ActiveSheet.Copy After:=ActiveSheet
z = ActiveSheet.Range("nouveau")
'La cellule "nouveau" de "resume" contient le nom de la nouvelle feuille
ActiveSheet.Name = z
Worksheets("resume").Activate
z = Worksheets("resume").Range("B13").Formula & " + " & z & "!B13"
' en supposant que c'est la cellule B13 qu'il faut additionner dans "resume"
Worksheets("resume").Range("B13").Formula = z

Merci de votre aide. Je crois que je vais m'en sortir seul : j'ai interrogé avant de réfléchir, ou je pense mieux depuis que j'ai posté la question!
Mais une idée géniale sera toujours la bienvenue!
Jacques

[jfontaine]

je veux que A1 (par exemple) de la feuille resume soit la somme de toutes les A1 des autres feuilles.

Dans ce cas, ma première proposition est adaptée à ton besoin.
Une adaptation avec une feuille Début et une feuille Fin pour borner tes feuilles personnels et l'utilisation de la formule ci dessous fera la somme sans utiliser VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(Debut:Fin!A1)

Un fichier Exemple : FORMULE - Somme multi feuilles.xls

[Golonne]

Guillaume,
d'accord, mais comment indiquer, dans la boucle, la meme cellule de chaque feuille? est-ce qu ce qui suit marche?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wbClasseur = ThisWorkbook
      For i = 2 To wbClasseur.Worksheets.Count - 1
          worksheets.("resume").Range("A1") = worksheets.("resume").Range("A1")  + worksheets(i).Range("A1")
      Next i

Il faut appliquer la propriété ".Value" aux membres de ton affectation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 2 To wbClasseur.Worksheets.Count - 1
     worksheets.("resume").Range("A1").Value = worksheets.("resume").Range("A1").Value  + worksheets(i).Range("A1").Value
Next i

Mais oui je pense que ça marche sinon je ne te le proposerais pas

Cordialement,

Guillaume

[Pantagruel92]

La voilà, l'idée géniale, Jérome! C'est d'encadrer les feuilles actives par deux feuilles qui ne servent qu'à avoir des limites fixes à ma somme....J'ai pas eu l'idée avant : je vieillis!!
Merci.
Je marque le problème comme résolu.
jacques