Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Somme avec dernière ligne variable [RESOLU]

goldenboy

XLDnaute Occasionnel
Bonjour à tous,

Mon objectif est d'obtenir la somme d'une colonne dont le nombre de données peut varier.

Donc l'emplacement de cette somme doit également varier.

Voici un fichier test pour plus de compréhension.

Merci d'avance à vous tous pour vos réponses.
 

Pièces jointes

  • TEST-SOMME-VARIABLE.xls
    84 KB · Affichages: 34
  • TEST-SOMME-VARIABLE.xls
    84 KB · Affichages: 34
  • TEST-SOMME-VARIABLE.xls
    84 KB · Affichages: 39
Dernière édition:

goldenboy

XLDnaute Occasionnel
Re : Somme avec dernière ligne variable

Bonsoir,

Je viens de trouver tout seul en faite :

Code:
'==Ici, je souhaite mettre dans la dernière cellule, le résultat de la somme de la colonne B.

Range("b" & DLigne + 1).Select
somme1 = DLigne + 1 - DLigne - DLigne
somme2 = DLigne - DLigne - 1
MsgBox "Première ligne = " & somme1 & Chr(10) & Chr(10) & _
"Deuxième ligne = " & somme2

Selection.FormulaR1C1 = "=SUM(R[" & somme1 & "]C[]:R[" & somme2 & "]C[])"

Merci quand même.
 

Pièces jointes

  • TEST-SOMME-VARIABLE.xls
    84 KB · Affichages: 47
  • TEST-SOMME-VARIABLE.xls
    84 KB · Affichages: 30
  • TEST-SOMME-VARIABLE.xls
    84 KB · Affichages: 44
Dernière édition:

DoubleZero

XLDnaute Barbatruc
Re : Somme avec dernière ligne variable [RESOLU]

Bonjour, goldenboy, excfl, le Forum,

Le total peut également être obtenu ainsi :

Code:
Option Explicit
Sub Totaliser_B()
Range("b65536").End(xlUp).Offset(1, -1) = "total : "
Range("b65536").End(xlUp).Offset(1, 0) = Application.WorksheetFunction.Sum(Range("b:b"))
End Sub

A bientôt
 

excfl

XLDnaute Barbatruc
Re : Somme avec dernière ligne variable [RESOLU]

Bonsoir DoubleZero,

Code intéressant car il permet de saisir les sommes (et non pas de les tirer aléatoirement) et d'obtenir le total.

excfl
 

Discussions similaires

Réponses
7
Affichages
355
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…