somme de colonne en tête de celle-ci

[chikai77]

Bonjour à tous,

Je voudrais placer le somme d'une colonne en ligne 1. Il me semble que j'arrivais à la réaliser avec une fmla de type =somme (a2:a) cependant dans ma version 2016, il ne reconnaît plus cette formule.

Quelqu'un a t il une idée pour réaliser ce type de somme sans devoir faire référence à une autre cellule.

Merci.

 

[DoubleZero]

Bonjour, chikai77, le Forum,

Comme ceci ?

Option Explicit
Sub Total()
Range("a1") = Application.Sum(Range(Cells(2, 1), Cells(Rows.Count, 1)))
End Sub

A bientôt

 

[Staple1600]

Bonjour le fil, le forum, 00

La formule ne serait pas celle-ci par hasard?
=SOMME(A:A)

NB: Evidemment, on ne peut pas la mettre en A1, il faudra la mettre en B1

 

[DoubleZero]

Re-bonjour, bonjour, Staple16,

Ou bien, en a1 :

=SOMME(A2:A1048576)

A bientôt

 

[Staple1600]

Re

00
Quid si l’utilisateur possède Excel 97 ou Excel 2000 ou Excel 2003 ?
Et le demandeur avait dit sans faire référence à une cellule

 

[DoubleZero]

Re-bonjour,

... Quid si l’utilisateur possède Excel 97 ou Excel 2000 ou Excel 2003 ?..

... dans ma version 2016...

 

[Staple1600]

Re

Oui mais je raisonne toujours multi-utilisateurs sur XLD.
Car un autre membre avec la même question mais une autre version d'Excel
essaiera et viendra nous dire.
"Désolé, mais la formule ne marche pas"


Alors si on a le droit au VBA et pour le fun, une fonction personnalisée à mettre en A1

Function SOMMES_NOUSVRAIMENTSEULS(r As Range)
SOMMES_NOUSVRAIMENTSEULS = Application.Sum(r.Offset(1).Resize(Rows.Count - 1))
End Function

Utilisation: en A1, mettre la formule suivante
=SOMMES_NOUSVRAIMENTSEULS(A1)