Somme plage variable

blord · 22 Juin 2010

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 · 22 Juin 2010

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 :

Code:

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 :

Code:

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 · 22 Juin 2010

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 !

Somme plage variable

blord

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

blord

XLDnaute Impliqué

Discussions similaires

Somme plage variable

blord

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

blord

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency