Somme en VBA sur plusieurs feuilles

[man95]

bonjour à vous tous

Je vous expose, j'espere simplement mon besoin

J'ai un classeur avec 2 feuilles fixes (Menu et cumul) et x feuilles variables de 1 (mini) à 31 (maxi)

je aimerai en Vba faire la somme de la cellule (ex: E3) de toutes les cellules E3 des feuilles 1 à x et et coller cette valeur en E3 de ma feuille cumul.

Pour corser l'ensemble, pouvoir faire la même chose sur les cellules E4,E5,E6, ..., E482

Merci de me lire et de vos réponses

Man

 

[Guest]

Re : Somme en VBA sur plusieurs feuilles

Bonjour,

Pourquoi VBA?

formule en E3 de 'Cumul' =SOMME(Feuil1:Feuil31!E3)

Suivant le cas, passer par données/consolidation ou tableau croisé dynamique.

A+

 

[JCGL]

Re : Somme en VBA sur plusieurs feuilles

Bonjour à tous,

Peux-tu essayer avec :

Sub Test()
    With Sheets("Cumul")
    Cumul = 0
    For X = 2 To Sheets.Count
    Z = Sheets(X).Range("E3").Value
    Cumul = Cumul + Z
    Range("E3") = Cumul
    Next X
    End With
End Sub

A+ à tous

Edition : Salut mon Ges 🙂🙂🙂

 

[man95]

Re : Somme en VBA sur plusieurs feuilles

bonjour Hasco, JCGL

Merci tous les deux de vos réponses

tout d'abord pour Hasco je souhaite que cela soit en VBA pour l'intégrer à un macro existante, de plus je préfère avoir le résultat plutot que la formule.
JCGL, ton code fonctionne parfaitement, serait il possible de l'etendre jusqu'a la ligne 482 ?

Merci beaucoup

Man

 

[JCGL]

Re : Somme en VBA sur plusieurs feuilles

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Test()
    Dim x%, z%, y%, Cumul%
    With Sheets("Cumul")
        Range("E3:E492").ClearContents
        Application.ScreenUpdating = 0
        For x = 2 To Sheets.Count
            For z = 3 To 492
                Cumul = Sheets(x).Range("E" & z).Value
                Range("E" & z) = Range("E" & z) + Cumul
            Next z
        Next x
    End With
End Sub

Dans le fichier joint code plus formule...

A + à tous

 

[man95]

Re : Somme en VBA sur plusieurs feuilles

Boujour JCGL, le forum,

Désolé pour ma réponse tardive mais je te remercie pour ton code c'est exactement ce que je souhaite

man