vba : somme d'une zone variable de cellules

[miguelangelo]

Bonjour à tous,

mon problème est que je veux dans une cellule la formule qui fasse le total d'une zone de cellules

ma macro génère un certain nombre de lignes d'écritures. je voudrais que le résultat ne soit pas un calcul cumulatif pendant la macro mais bien une formule qui fasse la somme des valeurs . (des valeurs doivent être rentrées manuellement)

dans l'exemple 1 :
donc, dans la colonne d du fichier joint, en d13 je veux une somme qui ferait :
=somme("d5:d12")

dans l'exemple 2 :
cette somme je la voudrais en d42 et donc serait
=somme("d5:d41")

ma base de travail s'appelle origine (dim as range) qui est tjs la cellule "compte". toutes les valeurs de se tableau sont générées par rapport à la cellule " origine"

je pensais à un code du genre
dim i as integer
.....
intégration des données
.....
i=i+1
'calcul du total
origine.offset(i,3)="sum(origine.offset(1,3): origine.offset(i-1,3))"

Merci pour votre aide

 

[Dranreb]

Re : vba : somme d'une zone variable de cellules

Bonjour
Comme ça peut être:

origine.Offset(i, 3) = "=SUM(OFFSET(R" & origine.Row & "C,1,0):OFFSET(RC,-1,0))"

en tout cas c'est ce que je ferais.
Sinon ça, ça devrait aussi donner le bon résultat:

origine.Offset(i, 3) = "=SUM(R" & origine.Row + 1 & "C:R[-1]C)"

À+

 

[kjin]

Re : vba : somme d'une zone variable de cellules

Bonjour,
En gros débrouillez-vous... avec ça !
La ligne d'origine peut-être déterminée si origine est un objet range, non ?

Lignedébut = origine.Row

...après un "certain temps", comme diraiit l'autre, ta macro arrive à la dernière ligne, non ?

LigneFin = x '???

donc dans la cellule suivant la dernière ligne

Cells(x + 1, 4).FormulaLocal = "=SOMME(D" & LigneDebut & ":D" & LigneFin & ")"

A+
kjin

 

[miguelangelo]

Re : vba : somme d'une zone variable de cellules

je teste ce soir.. merci...

 

[Dranreb]

Re : vba : somme d'une zone variable de cellules

Je m'aperçois que j'ai oublié une chose importante dans mes deux instruction: FormulaR1C1

origine.Offset(i, 3).FormulaR1C1 = "=SUM(OFFSET(R" & origine.Row & "C,1,0):OFFSET(RC,-1,0))"
origine.Offset(i, 3).FormulaR1C1 = "=SUM(R" & origine.Row + 1 & "C:R[-1]C"

À+

 

[miguelangelo]

Re : vba : somme d'une zone variable de cellules

merci bcp ....ca marche pour moi !!