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]

  • Initiateur de la discussion Initiateur de la discussion goldenboy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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

Dernière édition:
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 🙂
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…