VBA calcule de cellule sur plusieurs feuille

Sébastien Delisle à dit:

Salut il y a t-il un code VBA pour faire la somme par exemple le cellule A1 de toute les feuilles du classeur. Le nom des feuille ont des nom aléatoire et peuvent être ajouter ou supprimer. Une macro qui calcule toute les cellule A1 de toutes les feuille sans être obligé de mettre le nom de la feuilles
Merci

Cliquez pour agrandir...

Sub sommejj()
    Dim i As Long, Lasomme As Double
    For i = 1 To ThisWorkbook.Worksheets.Count
         Lasomme = Lasomme + Sheets(i).[a1].Value
    Next
    MsgBox Lasomme
End Sub

Jacky67 à dit:

Sub sommejj()
Dim i As Long, Lasomme As Double
For i = 1 To ThisWorkbook.Worksheets.Count
Lasomme = Lasomme + Sheets(i).[a1].Value
Next
MsgBox Lasomme
End Sub

Cliquez pour agrandir...

Jacky67 à dit:

Bonsoir,
Par exemple

Code:

Sub sommejj()
    Dim i As Long, Lasomme As Double
    For i = 1 To ThisWorkbook.Worksheets.Count
         Lasomme = Lasomme + Sheets(i).[a1].Value
    Next
    MsgBox Lasomme
End Sub

Salutations
JJ

Cliquez pour agrandir...

Sébastien Delisle à dit:

un gros merci, mais en lisant la formule ou je choisi ou va s'inscrire




le résulta




Mais en lisant la réponse, je me demande ou va s'afficher le résultat?

Cliquez pour agrandir...

Sébastien Delisle à dit:

Ok je viens de voir en MSG BOX, puis-je inscrire le résultat dans une cellule de mon choix au lieu de l'avoir en msgbox?

Cliquez pour agrandir...

Sébastien Delisle à dit:

Ok je viens de voir en MSG BOX, puis-je inscrire le résultat dans une cellule de mon choix au lieu de l'avoir en msgbox?

Cliquez pour agrandir...

Sub sommejj()
     Dim i As Long, Lasomme As Double
     For i = 1 To ThisWorkbook.Worksheets.Count
          Lasomme = Lasomme + Sheets(i).[a1].Value
     Next
     Sheets("Feuil1").[B1] = Lasomme
End Sub

Sébastien Delisle à dit:

Regarde la pièce jointe 968873

Cliquez pour agrandir...

Sébastien Delisle

Cliquez pour agrandir...

Sub SommeJJ()
    Dim sh As Worksheet, LaSomme As Double
    For Each sh In ThisWorkbook.Worksheets
        LaSomme = LaSomme + sh.[a1].Value
    Next
    Sheets("Informations").[D9] = LaSomme
End Sub