Fonction somme avec une macro

[lesuisse]

Bonjour à toutes zet à tous...


Je tente de créer une macro permettant de faire la somme des montant au-dessus de la cellule que je sélectionne.

En d'autres termes : je sélectionne la cellule. Je clique sur le bouton et la macro me donne la somme des montants au dessus...

Quelqu'un a une idée please ?

Merci beaucoup...

Le suisse

 

[Minick]

Salut Le suisse,

Essai comme ca:

Sub sum()
Dim LigFormule As Long
Dim NbrLigne As Long

LigFormule = ActiveCell.Row
NbrLigne = 1

While ActiveCell.Offset(-NbrLigne, -1) <> ""
NbrLigne = NbrLigne + 1
Wend

ActiveCell.FormulaR1C1 = "=SUM(R[-" & NbrLigne - 1 & "]C:R[-1]C)"
End Sub

@+
Minick

 

[Minick]

c re moi,

g fait comme tu le voulé par macro mais ya bocou plus simple

tu click sur l'icone sigma (¦²) et c magique

@+
Minick

 

[lesuisse]

Minick, le forum,

Je ne sais pas combien de fois je vais encore te remercier, mais on ne le fera jamais assez !
Donc : Merci encore.

En effet, sigma était une alternative à la macro.
Mais en fait la macro vient se greffer a la suite d'un début de macro.

Danke noch ! ("Encore merci " si vous pigez pas le suisse-allemand...).

A +

Le suisse