somme de plusieurs cellules et colonne

[Gysmo]

Bonjour

Voici mon problème j'ai un nombre variable de feuilles dans mon classeur. Je dois faire la somme de plusieurs cellules(ex:Tout les B43 de mes feuilles) et placer le resultat dans une cellules (b8) de ma feuille active. Ensuite prendre tout les B44 et placé le résultat dans (b9).....Mon tableau (5 lignes et 12 colonnes) est de
B43 à M43 = résultat dans B8 jusqu'à M8 de ma feuille active
B44 à M44 = résultat dans B9 jusqu'à M9 de ma feuille active
B45 à M44 = résultat dans B10 jusqu'à M10 de ma feuille active
B46 à M44 = résultat dans B10 jusqu'à M10 de ma feuille active
B47 à M44 = résultat dans B10 jusqu'à M10 de ma feuille active

Voici ma macro que j'ai fait, elle fonctionne très bien saut qu'elle calcul seulement une cellule (B43) alors comment placé une variable pour que le tout soit automatique.


Sub Macro1()
Dim Somme As Long
Dim Ws As Worksheet
mafeuille = ActiveSheet.Name
For Each Ws In ThisWorkbook.Sheets
If (Ws.Name <> "x") And (Ws.Range("b5").Value = mafeuille) Then
Somme = Somme + Ws.Range("b43").Value
End If
Next Ws
ActiveSheet.Range("b8").Value = Somme
End Sub


Merci

 

[Banzai64]

Re : somme de plusieurs cellules et colonne

Bonjour

peut-etre une solution sans VBA irait ?

A copier dans la case B8

=SOMME(
ensuite cliques sur la 1ère feuille
Appuies sur shift
Cliques sur la dernière feuille
cliques sur la case B43
et dans la barre formule tapes ) puis 'entrée'

dans la case B8 tu auras une formule du style
=SOMME(Feuil2:Feuil3!B43)

Formule à tirer vers la droite et vers le bas pour remplir tout ton tableau


Inconvénient il faut que toutes les pages que tu veux additionner soient entre feuil2 et feuil2

 

[Banzai64]

Re : somme de plusieurs cellules et colonne

Re
si tu veux vraiment du VBA essayes (Non testé)

Sub Macro1()
Dim Somme As Long
Dim Ws As Worksheet
Dim Lig As Byte
Dim Col As Byte
  mafeuille = ActiveSheet.Name
  For Lig = 0 To 4
    For Col = 0 To 11
      Somme = 0
      For Each Ws In ThisWorkbook.Sheets
        If (Ws.Name <> "x") And (Ws.Range("b5").Value = mafeuille) Then
          Somme = Somme + Ws.Cells(43 + Lig, 2 + Col).Value
        End If
      Next Ws
      ActiveSheet.Cells(8 + Lig, 2 + Col).Value = Somme
    Next Col
  Next Lig
End Sub

 

[Gysmo]

Re : somme de plusieurs cellules et colonne

Salut

Un GROS MERCI c'est super elle fonctionne