Somme aléatoire

E

ERIC

Guest
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
 
E

ERIC

Guest
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

XLDnaute Accro
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]
 

Pièces jointes

  • Exemple_Eric.zip
    1.6 KB · Affichages: 22
J

JC de Lorient

Guest
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
 
E

ERIC

Guest
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+++
 
E

ERIC

Guest
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
 

Discussions similaires

Réponses
10
Affichages
351

Membres actuellement en ligne

Statistiques des forums

Discussions
312 922
Messages
2 093 643
Membres
105 773
dernier inscrit
godelvie-divine.bihonda-b