Somme plage variable

[blord]

Bonjour à tous,

Après recherche sur le forum, je n'ai pas trouvé la solution à mon problème qui doit être simple pour plusieurs d'entre-vous ...

Dans le fichier ci-joint, en C53, je veux faire la somme de la plage (C52:C15)

Évidemment, cette plage est variable donc le résultat de la somme peut se retrouver en C434 et devoir faire la somme de (C433:C121)...

Autre contrainte, dans la cellule je dois absolument voir la formule
"=SOMME(C52:C115)" (elon la plage à calculer) dans le cas ou des vérifications comptables seraient faites sur ce fichier. Les vérificateurs doivent pouvoir identifier facilement de où provient le résultat de la somme...

Merci, encore une fois, de m'aider !

Benoit Lord

 

[job75]

Re : Somme plage variable

Bonjour blord,

S'il n'y a jamais de cellules vides dans les plages des nombres à sommer, alors utiliser cette petite macro :

Sub Sommes()
Dim plage As Range, a As Range
Set plage = Columns("C").SpecialCells(xlCellTypeConstants, 1)
For Each a In plage.Areas
  Cells(a.Row + a.Count, "C").Formula = "=SUM(" & a.Address(0, 0) & ")"
Next
End Sub

Fichier joint.

Edit : si l'on veut pinailler, mettre un contrôle d'erreur :

Sub Sommes()
Dim plage As Range, a As Range
[COLOR="Red"]On Error Resume Next[/COLOR]
Set plage = Columns("C").SpecialCells(xlCellTypeConstants, 1)
For Each a In plage.Areas
  Cells(a.Row + a.Count, "C").Formula = "=SUM(" & a.Address(0, 0) & ")"
Next
End Sub

A+

 

[blord]

Re : Somme plage variable

Bonjour Job75,

Merci beaucoup, c'est exactement ce que je voulais... Et non, il n'y aura jamais de cellule "vide"...

Bonne fin de journée !