Macro Excel Somme sous condition

Bonjour,
J’ai crée un fichier avec une interface à l’ouverture, permettant à l’utilisateur d’afficher 1 ou plusieurs feuilles de ce classeur. Sur chaque feuille, il y’a un sous-total dans la cellule J24.
Pouvez-vous m’aider à créer une macro, qui sur un onglet récap, permet de calculer la somme des sous-totaux des feuilles actives ? J’ai essayé cette macro mais ça ne fonctionne pas :

Code:

---

Sheets("RECAP").Cells(derlin+4,9).FormulaLocal= "=SOMME(J24)

---

Merci pour votre coup de main !

Bonjour

A tester

Code:

---

1 2 3 4 5 6 7 8

Dim myF As Worksheet, mySomme As Double Application.Volatile = True mySomme = 0 For Each myF In ThisWorkbook.Sheets If myF.Name <> "RECAP" Then mySomme = mySomme + myF.Range("J124") Next myF   SommeFeuille = mySommen

---

Cordialement

Merci
Je joins un exemple pour visualiser ce que j'essaie d'obtenir: une "somme globale" dans l'onglet "RECAP".
Merci par avance pour le coup de main

Citation:

---

Envoyé par nduv75

Merci
Je joins un exemple pour visualiser ce que j'essaie d'obtenir: une "somme globale" dans l'onglet "RECAP".
Merci par avance pour le coup de main

---

bonjour,

as tu essayé la solution à iotr76 ?

Biensûr, mais elle n'est pas adaptée, c'est pourquoi j'ai envoyé un fichier ;)

pas besoin du fichier .. dit plutôt ce qui ne vas pas ..!!!!

J'ai ajouté ça à mon module mais ça ne fonctionne pas:

Code:

---

1 2	Sheets("RECAP").Cells(derlin + 4, 8) = "Total GLOBAL" Sheets("RECAP").Cells(derlin + 4, 9).FormulaLocal = "="Total" + ActiveSheets.Range("J24")

---

Bonsoir,

Une solution mais avec une contrainte tout de même, avec cette formule, les totaux doivent être tous dans la même cellule de chaque feuille (à priori ici "J24"), et les feuilles à additionner doivent se suivre (ordonnancement des onglets) donc, la feuille "récap" doit être en dehors du groupe de feuille à prendre en compte :

Code:

---

1 2 3 4 5 6 7

Sub Total()   'adapter le nom des deux feuilles servant de bornes dans la formule ici, Feuil1 et Feuil3 Worksheets("récap").Cells(derlin + 4, 9).Formula = "=SUM(Feuil1:Feuil3!J24)"   End Sub

---

Hervé.

Merci pour cette solution. Est-il possible de faire sans cette contrainte? Par exemple, si le sous total en Feuille 2 est en cellule J10 par exemple

Citation:

---

Envoyé par nduv75

Merci pour cette solution. Est-il possible de faire sans cette contrainte? Par exemple, si le sous total en Feuille 2 est en cellule J10 par exemple

---

bonjour,

pas clair le besoin .... ? tu peu simplement utiliser l'addition et l'opérateur + ...

Code:

---

Worksheets("récap").Cells(derlin + 4, 9).Formula = "=Feuil1!J24+Feuil2!J10+Feuil3!J24"

---