Discussion :

[Domimart]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Domimart]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(C14:C28)

car je dois tirer ma formule ensuite sur plusieurs colonnes

Cdlt
Dom

[Jean-Philippe André]

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

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

[Domimart]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(C14:C28)

Je continu à chercher

Cdlt
Dom

[Jean-Philippe André]

en faisant un simple Replace cela semble etre bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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, "$", "")

[Domimart]

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