Somme aléatoire

[ERIC]

Bonjour
je voudrais savoir comment on fait la somme d'une colonne B dont on ne connait pas la longueur max mais en allant toujours seulement jusqu'au dernier enregistrement
Sachant que la cellule de référence pour connaitre le dernier enregistrement serait la collone A par exemple
le résultat etant par exemple dans la cellule C2
Ou mieux si c'est possible a la fin des enregistrements de la colonne B
Merci
Eric

 

[JC de Lorient]

salut Eric, le forum

pour calculer toute la colonne B : SOMME(B:B)

je sé pas si c'est ce que tu attends

JC

 

[ERIC]

ca fondtionne en effet si on met la somme dans une autre colonne
Mais si on veut mettre la somme en dessous des chiffres a additionner la effectivement je crois qu'il faut du code
je crois avec
Range('a65536').End(xlUp).Row)
J'ai essaye mais je n'y arrive pas trop
Sinon je le met dans uen autre colonne
Merci

 

[Abel]

Bonjour Eric, JC de Lorient,

On peut le faire aussi avec des formules.
Il faut passer par un champ nommé dans lequel on met une formule.
Enfin, c'est une solution. Pas forcément LA solution.

Abel. [file name=Exemple_Eric.zip size=1588]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_Eric.zip[/file]

 

[JC de Lorient]

re le forum

voici une petite macro à mettre dans ta feuille qui devrait pouvoir etre simplifiée ( g pas éussi a faire la somme en une étape)

Sub calcul()
Dim i, t, x As Integer

' determine la dernière cellule de A
i = Range('a65536').End(xlUp).Row

'incrémente la somme
t = 0
For x = 1 To i
t = t + Range('b' & x).Value
Next x

'range en C1 la somme
Range('C1') = t
End Sub

JC

 

[ERIC]

Merci mais finalement j'ai trouve ca

Sub SomCol

NbValeurs = Range('D6', [D6].End(xlDown)).Count
Range('D6').End(xlDown).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = '=SUM(R[-' & NbValeurs & ']C:R[-1]C)'
Selection.Font.Bold = True

End Sub

A+++

 

[ERIC]

Calcul le nombre de valeur saisie dans la col
Se positionne sur la première cell vide
entre la formule pour la somme

Sub SommeAuto2()

NbValeurs = Range('D6', [D6].End(xlDown)).Count
Range('D6').End(xlDown).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = '=SUM(R[-' & NbValeurs & ']C:R[-1]C)'
Selection.Font.Bold = True


End Sub