[VBA-E]Boucle pour addition?

Bonjour

Mon classeur mensuel comporte x feuilles dont 4 ou 5 correspondent aux n° de
semaine du mois travaille: ex:35,36,37,38,39 pour septembre

Les n° de semaine changent en fonction du mois!!!

Dans la feuille Total, je voudrais additionnner les valeurs se trouvant
en ID9:IV50 (feuilles 35+36+37+38+39)

Comment écrire ce code

Merci

La réponse a été donnée hier. Tu es en retard pour ton exercice :wink:
Enregistre une macro en le faisant, tu auras un bout de code à nous montrer... On pourra t'aider plus rapidement.

Je viens de faire ça, et, placé dans ID9 de feuil1, ça donne pour le totale de feuil2 et 3, cette formule

Code:

---

=Feuil2!ID9+Feuil3!ID9

---

A adapter avec le nom et le nombre de feuilles et à recopier vers le bas jusqu'en ID50 puis, ID9:ID50 à recopier à droite jusqu'en IV9:IV50 dans tes cinq feuilles
Tu dois faire ça en VBA ou comme tu veux ?

A+

Si ton problème principal est le fait que le nom des onglets changent dans chaque classeur mensuel, je te propose d'utiliser la collection "Worksheets()", qui contient les différents onglets de ton classeur. Par exemple:

Code:

---

1 2 3 4 5 6 7

Sub test() For i = 1 To ActiveWorkbook.Worksheets.Count If Not Worksheets(i).Name = "Total" Then MsgBox Worksheets(i).Name End If Next i End Sub

---

Si tu remplace mes MsgBox par l'addition que tu veux faire, ça devrait marcher dans tous tes classeurs mensuels.

Merci pour les réponses
En fait, efectivement, j'ai 2 problémes:
1) le nombre et le n° de semaine changeant chaque mois
2) ensuite de faire additionner les 4 ou 5 semaines sur ma feuille Total

Je me mélange les pinceaux, entre les collections d'objet, et je n'arrive pas au but.

avec ton code, je retrouve mes feuilles 35 à 39, et là je coince....

patience et longueur de temps.....

1 - Quelle solution envisages-tu ? Faire le calcul par macro ou par formule dans la feuille total ?
2 - Quel est ton pb ? Les formules, la sélection des cellules ? La lecture des cellules dans les feuilles ?

La solution la plus simple est de placer des formules dans la teuille total.
Un problème pour les écrire ? Pour les recopier sur toute la plage de cellules ?

Tu essaies de répondre ? :wink:

A+

Je veux tout écrire en macro, d'où mes questions
Si je devais utiliser directement la feuille de calcul , je n'aurai aucun souci!!

donc, dans 1 er temps, je veux reconnaitre mes N° de semaines, ensuite de pouvoir additionner toutes les feuilles dans la feuille Total

je pourrai également faire copier sur ma feuille total, pour chaque semaine
les cellules ID9:IV50 en BA9 pour la 1ére feuille, en BX9 pour la seconde
etc... cela est peut etre plus simple et je n'ai plus qu'une addition sur ma feuille Total., des differentes semaines.

sur cette macro , je me suis noyé, et je mélange tout!!!

Citation:

---

je pourrai également faire copier sur ma feuille total, pour chaque semaine
les cellules ID9:IV50 en BA9 pour la 1ére feuille, en BX9 pour la seconde

---

Non, surtout pas !
Tu peux faire un truc comme ça

Code:

---

1 2 3 4 5 6 7 8 9

For NoFeuille = 35 to 39 For NoColonne = 238 to 256 '238 = ID et 256 pour IV For NoLigne = 9 to 50 Worksheets("Total").cells(NoLigne,NoColonne).value = _ Worksheets("Total").cells(NoLigne,NoColonne).value + _ Worksheets(NoFeuille).cells(NoLigne,NoColonne).value Next NoLigne Next NoColonne Next Feuille

---

Tu comprends que je ne peux pas tester ça mais ça devrait marcher.
Tu peux essayer pour nous ?

A+

ok, c'est sympa
demain je me lève trés tôt, aussi je testerai ton code et donnerai l résultat
demain
merci encore

S'il y a des erreurs, essaie de les corriger. Si ça ne va pas, essaie de comprendre ce que fait mon code, il est facile.
Bien que je n'aurais jamais fait ça et aurais préféré la solution des formules dans la feuille Total, je croise les doigts.

A+