Somme en VBA sur plusieurs feuilles

[man95]

Bonjour à vous tous,

j'ai besoin de votre savoir afin de résoudre un probleme de somme que j'aimerai faire via le VBA.

J'ai la formule ci dessous qui me permet de faire la somme d'une cellule sur plusieurs feuilles (merci suistrop)

Sub Somme()
'on boucle sur les feuilles

Dim CpT As Integer
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name <> "Bilan" And ws.Name <> "Menu" Then
CpT = CpT + ws.Cells(3, 2)
End If
Next ws

Range("B3") = CpT

End Sub

j'aimerai pouvoir faire la même chose sur l'ensemble des cellules de ma feuille ce qui représente la plage (B3:AR482)

auriez vous une solution à me proposer

je vous remercie de vos réponses

MPR

 

[suistrop]

Re : Somme en VBA sur plusieurs feuilles

salut,

Tu change les ligne et colonnes que tu souhaite traiter !
en gros on fais la somme pour chaque cellule de chaque ligne et chaque colonne !!!

Sub Somme()
Application.ScreenUpdating = False 'pour que ca soit plus rapide
Dim CpT As Integer
Dim ws As Worksheet
For x = 1 To 15 'on boucle sur les lignes ligne de 1 à 15
    For y = 1 To 15 'on boucle sur les colonnes colonne de 1 à 15
        For Each ws In Worksheets 'on boucle sur les feuilles
            If ws.Name <> "Bilan" And ws.Name <> "Menu" Then
            CpT = CpT + ws.Cells(x, y)
            End If
        Next ws
    Sheets("Bilan").Cells(x, y) = CpT
    CpT = 0 'on réinitialise le compteur
    Next y
Next x

End Sub

 

[man95]

Re : Somme en VBA sur plusieurs feuilles

Bonjour suistrop

Comme hier c'est nickel !

merci beaucoup


MPR