Correction macro somme

[Jiheme]

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]

Re : Correction macro somme

bonjour Jiheme

Teste:

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]

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]

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