VBA calcule de cellule sur plusieurs feuille

[Sébastien Delisle]

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

 

[Jacky67]

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

Bonsoir,
Par exemple

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

 

[Sébastien Delisle]

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

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

le résulta

Bonsoir,
Par exemple

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

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

 

[Sébastien Delisle]

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?

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?

 

[Sébastien Delisle]

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?

 

[Jacky67]

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?

Re..
Oui, bien sur, mais tu dois spécifier le nom de la feuille et la cellule.
Dans l'exemple c'est la feuille qui a comme nom "Feuil1" et la cellule B1
Il est évident que cette feuille doit exister.

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

Bon courage
JJ

 

[Jacky67]

Regarde la pièce jointe 968873

RE..
Dans ton cas ce serait
Sheets(" Informations").[D9]=Lasomme
S'il y a un ou des espace devant "Informations" (a déconseiller)
Sinon
Sheets("Informations").[D9]=Lasomme

JJ

 

[Jacky67]

Sébastien Delisle

Une autre façon d'écrire, pour le même résultat

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

Salutations
JJ