Correction macro somme

Jiheme · 29 Novembre 2007

Bonjour à tous

J'ai fait un tout petit bout de code (c'est le premier !!!) malheureusement cela bloque l'un ou l'une d'entre vous peut il me le corriger ?

Sub cumuls()
Dim budget As Range
Dim totbudget As Range
Set totbudget = Range("L65536.End(xlup).row+2")
Set budget = Range("L4:L65536.end(xlup).row")
totbudget = Sum(budget)
End Sub

Je cherche à faire letoal d'une plage variable 2 cases en dessous de cette même plage
Merci

pierrejean · 29 Novembre 2007

Re : Correction macro somme

bonjour Jiheme

Teste:

Code:

Sub cumuls()
Dim budget As Range
Dim totbudget As Range
Set totbudget = Range("L65536").End(xlUp).Offset(2, 0)
Set budget = Range("L4:L" & Range("L65536").End(xlUp).Row)
totbudget.FormulaLocal = "=SOMME(" & budget.Address & ")"
End Sub

mutzik · 29 Novembre 2007

Re : Correction macro somme

Bonjour Jiheme,

pour ma part, je fais toujours les totaux en haut de ma liste, et je fais (par ex)
dans c6 : =somme(c8:c65536)
comme cela, je suis tranquille, quand j'ajoute un chiffre en col c, il est automatiquement rajouté à la somme
- et cela évite aussi d'aller à la fin de la liste pour trouver le total quand il y a beaucoup de données

Jiheme · 29 Novembre 2007

Re : Correction macro somme

Bonjour Pierrejean, Mutzik et le forum

Pierrejean super comme d'habitude, merci beaucoup

Mutzik j'avais envisagé ta solution, mais comme je veux me lancer dans le VBA je voulais essayer un truc simple, il reste du chemin...

Encore merci à tout deux et bonne journée

Correction macro somme

Jiheme

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Jiheme

XLDnaute Accro

Discussions similaires

Correction macro somme

Jiheme

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Jiheme

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency