Somme automatique par macro

Bonjour,


Je cherche à faire une somme automatique par macro : je veux faire la somme de toute la plage de cellules adjacantes se trouvant au dessus de la cellule active, cette plage pouvant être variable. J'ai éssayé plusieurs codes sans résultat, je vois à peu près oû ça pèche mais je ne sais pas comment y remédier: je n'arrive pas à définir et ni a exprimer ma variable de la première cellule en haut de la plage :voici un des codes que j'ai éssayé :
(avec ou sans les "&", cela ne change rien à l'erreur)

Code:

---

1 2 3 4

Sub Macro1111111111111111() 'ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)" code donné par l'enregistreur le [-14] étant la variable ActiveCell.FormulaR1C1 = "=SUM(R[&ActiveCell.Offset(-1, 0).End(xlUp).Row&]C:R[-1]C)" End Sub

---

ou encore celui là :

Code:

---

1 2 3 4 5

Sub Macro22222222222() Firstligne As Variant Set Firstligne = ActiveCell.Offset(-1, 0).End(xlUp).Row ActiveCell.FormulaR1C1 = "=SUM(R[&Firstligne&]C:R[-1]C)" End Sub

---

je dois m'emméler les pinceaux entre l'objet Range et le nombre de lignes à retirer ex : -14
J' ai également essayé des codes avec .Formula tout court mais sans résultat.

Si quelqu'un avait une idée ...

Merci beaucoup
Cdlt

Dom

salut,

attention a ne pas confondre les notations de formules.

Ici tu comptes utiliser la notation R[1]C[1] qui fonctionne en relatif et pas en R1C1 qui est de l'absolu.

De tres bons tutoriaux a ce sujet ici : http://fauconnier.developpez.com/exc...es/references/
et la
http://bidou.developpez.com/article/VBA/

Si tu veux avoir -14 il te faut alors soustraire ton numero de ligne de l'ActiveCell a celui de ta premiere ligne... Bref, pas forcement le plus facile selon moi.

Une solution en partant sur du R1C

Code:

---

ActiveCell.FormulaR1C1 = "=SUM(R" & ActiveCell.Offset(-1, 0).End(xlUp).Row & "C" & ActiveCell.Column & ":R" & ActiveCell.Row - 1 & "C" & ActiveCell.Column & ")"

---

Bonsoir JP

Tout d'abord, merci de ta réponse, ton code fonctionne parfaitement.
Je dois bien le décortiquer pour être sur de comprendre :

Pour la cellule haute de la plage : en référence de Row, la cellule de haut de plage, référence de colonne, celle de activecell, et pour la cellule du bas de plage, en référence de Row, activecell -1 , et pour la colonne, encore une fois la colonne d'activecell...

Je vais également bien regarder ces 2 tutos, je connais le principe du déplacement relatif et absolu avec le $ dans les formules excel, mais j'ai du mal à retranscrire tout ça en VBA. Et je bute aussi sur l'utilisation des paranthèses ou des crochets dans le code.

Merci de ton aide

Cdlt
Dom

Re bonjour,

Après avoir fait un test approfondi, j'ai encore un souci :

En fait , je ne cherche pas à obtenir une formule du genre :

Code:

---

=SOMME($C$14:$C$28)

---

mais plutôt

Code:

---

=SOMME(C14:C28)

---

car je dois tirer ma formule ensuite sur plusieurs colonnes

Cdlt
Dom

OK, donc ici on a bien une formule qui se cree en consequence :ccool:

Si tu penses que le probleme est resolu, merci de tagger le fil :mouarf:

Le problème n'est pas résolu car avec le code j'obtiens toujours de l'absolu

Code:

---

=SOMME($C$14:$C$28)

---

alors que je voudrai du relatif.
ce que j' aimerai obtenir c'est:

Code:

---

=SOMME(C14:C28)

---

Je continu à chercher

Cdlt
Dom

en faisant un simple Replace cela semble etre bon

Code:

---

1 2	ActiveCell.FormulaR1C1 = "=SUM(R" & ActiveCell.Offset(-1, 0).End(xlUp).Row & "C" & ActiveCell.Column & ":R" & ActiveCell.Row - 1 & "C" & ActiveCell.Column & ")" ActiveCell.Formula = Replace(ActiveCell.Formula, "$", "")

---

Bravo !

C'est subtil et ça marche, je vais pouvoir tirer ma formule. C'était le bout de code qui me manquait entre 2 procédures, maintenant je vais pouvoir en faire une seule; Cela vas faire gagner pas mal de temp, c'est pour trier des données de production sur un trimestre...

Un grand merci pour ta compréhension

je mets Résolu ;)
Cdlt
Dom