Discussion :

[sorbetframboise]

bonjour à tous ,
Voici ce que je souhaite faire:
Chaque semaine on rajoute une feuille excel et je souhaite faire la somme des cellules E140 de tous les onglets.
Pour l'instant j'ai cette macro qui est placée sur feuil4 non sur le worksheet je souhaiterais que la macro s'actualise a chaque ouverture du fichier et je ne sais pas comment faire la somme de ma sélection et la faire apparaitre dans ma feuil4 en F2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SelectAllSheets()
 
 Dim tblSheets() As Integer, i As Integer
 ReDim tblSheets(Worksheets.Count - 1)
 For i = 1 To Worksheets.Count
 tblSheets(i - 1) = i
 Next i
 Worksheets(tblSheets).Select 'selectionne toute les feuilles
Range("E140").Select 'selectionne une cellule particulière
 
Range("F2") = Sum
 End Sub

Merci pour tout

[révèr]

Bonjour sorbetframboise, (très bon choix)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub SelectAllSheets()
Dim Sum as Integer
Sum = 0
For i = 1 to Worksheets.Count
Sum = Sum + Sheets(i).Range("E140").Value
Next
 
Sheets(1).Range("F2").Value = Sum
 
End Sub

Cela devrait fonctionner.

NB : Eviter les .Select et .Activate tant que possible, c'est générateur de problèmes ! J'en ai fait les frais, j'applique les conseils

[Menhir]

je souhaiterais que la macro s'actualise a chaque ouverture du fichier

Mettre dans le module ThisWorkbook :

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open() 
   Dim Feuille As Worksheet
   Worksheets("feuil4").Range("F2").Value = 0
   For Each Feuille In ThisWorbook.Worksheets
       Worksheets("feuil4").Range("F2").Value = Worksheets("feuil4").Range("F2").Value + Feuille.Range("E140").Value
   Next Feuille
End Sub

[sorbetframboise]

Je viens de remarquer que mon message pour vous remercier ne s'était pas envoyé

Donc merci à vous j'ai fait un mélange de vos solutions car Menhir ta solution il fallait la déboguer et révèr ta solution ne faisait pas la MAJ automatique merci à vous pour vos réponses.

[Pierre Fauconnier]

Salut.

Tu pourrais aussi utiliser une fonction personnalisée

Code :

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

1
2
3
4
Function Somme3D(Plage As Range) As Double
  Application.Volatile
  Somme3D = Evaluate("sum(" & Worksheets(1).Name & ":" & Worksheets(Worksheets.Count).Name & "!" & Plage.Address)
End Function

A utiliser dans ta feuille comme une fonction native d'Excel. Elle est recalculée à chaque calcul du classeur. Dans l'illustration suivante, elle calcule la somme de tous les A1. Si tu ajoutes une feuille et que tu saisis une valeur dans A1, B1 de Feuil1 sera recalculé