total des cellules dans derniere feuille

[claubin]

🙂 Bonjour,
Y a t-il une formule (macro) pour afficher le total d'une même cellule (ex : c35) de chaque feuille d'un classeur dans la dernière feuille et ceci de manière inter-active (quel que soit le nombre de feuilles otées ou ajoutées).
Merci d'avance, sincères salutations.

 

[jeanpierre]

Re : total des cellules dans derniere feuille

Bonsoir claubin,

Oui, avec : =SOMME(Feuil1:Feuil10!C35), dans ton exemple. (Où, bien sûr le nom de ta première et le nom de ta dernière feuille)

Savoir, tout de même que chaque feuille ajoutée devra l'être entre ces deux feuilles.

La suppression ne pose aucun problème.

Bonne soirée.

Jean-Pierre

 

[skoobi]

Re : total des cellules dans derniere feuille

Bonjour claubin,

cette macro événementielle, à mettre dans la dernière feuille, se déclenche en activant cette dernière.
En C35 se trouvera la somme des autres cellules C35 des autres feuilles:

Private Sub Worksheet_Activate()
Dim Somme
For i = 1 To Sheets.Count - 1
Somme = Somme + Sheets(i).[C35].Value
Next
ActiveSheet.[C35].Value = Somme
End Sub

 

[vbacrumble]

Re : total des cellules dans derniere feuille

Bonsoir tous


L'équivalent de Données/Consolider en macro

(ici somme de toutes les cellules C35 en A8 de la feuille TOTO (qui doit donc exister dans le classeur, ou alors adapter la macro en conséquence.)

et des données dans les cellules C35 des feuilles du classeur.

Sub Consolider()
Dim nbrF As Integer, i As Integer
Dim ySources() As Variant, t
Dim Chemin$, NomFic$, Adresse$, sSources$

Chemin = ActiveWorkbook.Path & "\"
t = Split(ActiveWorkbook.FullName, "\")
NomFic = t(UBound(t))
Adresse = "R35C3"
nbrF = ActiveWorkbook.Worksheets.Count

ReDim ySources(nbrF)
sSources = vbNullString
For i = 1 To nbrF
ySources(i) = "'" & Chemin & "[" & NomFic & "]" & CStr(Sheets(i).Name) & "'!" & Adresse
Next i
Sheets("TOTO").Range("A8").Consolidate Array(ySources()), xlSum, False, False, False
End Sub

A+