faire la sommes des colonnes des toutes les feuilles

[pascal21]

bonjour
grace à votre aide j'ai mis en place une premiere partie de mon classeur
j'ai donc une macro qui crée des nouvelles feuilles chaque fois que je rentre un nom colonne a dans la feuille 1
j'aimerais avoir dans une feuille "budget" le décompte des cellules F8 à......
de chaque feuille
sachant que le nombre de feuilles évolue avec le temps
j'ai pas été très clair mais je pense que là je suis à fond pour ce vendredi lol!!!

 

[pascal21]

Re : faire la sommes des colonnes des toutes les feuilles

re
je vais modifier ma demande car comme je le craignais c'est incompréhensible

grace à une macro je crée des nouvelle feuilles déja formatées
1 feuille par poste de dépenses
j'aimerais pouvoir dans le feuille budget, cellule C7, faire la somme des cellules F8 à F100 de toutes les feuilles y compris celles rajoutées par la suite
afin d'obtenir le total de tous les postes de dépenses
j'espère avoir été plus clair
merci

 

[roro69]

Re : faire la sommes des colonnes des toutes les feuilles

Bonsoir voici une solution en admettant que ta feuille budget soit en première position .

Sub Recap()
Dim k%, i%
Dim Total As Double

For k = 2 To Sheets.Count

With Sheets(k)
For i = 8 To .Range("F65536").End(xlUp).Row

Total = Total + .Cells(i, 6)
Next i
End With
Next k
Sheets("Budget").Cells(7, 3) = Total
End Sub

A++

 

[pascal21]

Re : faire la sommes des colonnes des toutes les feuilles

bonsoir et merci pour ta réponse
en fait la feuille "budget" change de plce à chaque rajout de nouvelles feuilles
voila comment sont rangés les onglets
tableau de bord, nouvelles feuilles crées, budget, modèle feuille
posée comme cela ton code donne une erreur sur cette ligne

Total = Total + .Cells(i, 6)

je l'ai mis dans un module avec un bouton et pareil
ça fonctionne j'ai déplacé les feuilles

 

[roro69]

Re : faire la sommes des colonnes des toutes les feuilles

Aessayer:

Sub Recap()
Dim WS As Worksheet
Dim i%
Dim Total As Double
For Each WS In ThisWorkbook.Worksheets ' Teste toute les feuilles du classeur
If WS.Name <> "Budget" Then
For i = 1 To WS.Range("F65536").End(xlUp).Row
Total = Total + WS.Cells(i, 6)
Next i
End If
Next
Sheets("Budget").Cells(7, 3) = Total
End Sub

A++