Somme et variable en VBA

[bertgrav]

BONJOUR,

j'ai un problème, je n'arrive pas à trouver le code me permettant d'incorporer une variable dans une fonction de calcul,

je détermine la derniére cellule d'un tableau (qui suivant les moment est évolutif, donc la derniére ligne n'est pas fixe)
et à la fin de ce tableau, je fais une somme global, mais je veux que cette somme reste aprés la création de la macro sous forme de calcul, puisqu'on peut venir modifier à la main certaines données.

voici en gros le code


last = Range("O65500").End(xlUp).Row

Cells(last + 1, 15).Select 'ici pour mettre le global

ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"


mon pronblème est qu'à la place du -7 dans cette formule, je voudrais mettre
9-last

car la somme doit se passer entre la ligne 9 et la derniére ligne trouvée

j'ai essayé en mettant par exemple

y = 9 - last

en en faisant:

ActiveCell.FormulaR1C1 = "=SUM(R " & y & " C:R[-1]C)"

ça ne va pas, si quelqu'un connait la solution....

merci beaucoup

chantal

 

[Hervé]

Re : Somme et variable en VBA

bonjour

peut etre comme ceci :

last = Range("O65500").End(xlUp).Row

Cells(last + 1, 15).Select 'ici pour mettre le global

ActiveCell.FormulaLocal = "=SOMME(o1:o" & last & ")"

salut

 

[bertgrav]

Re : Somme et variable en VBA

Merci Hervé de ta réponse,

je viens juste de trouver en fouillant trés loin dans les archives.....

"=SUM(R[-" & y & "]C :R[-1]C)"


ouf !!!!!!

par contre, j'ai essayé ton code, j'ai une souci il me donne bien une somme , mais il met des ' (et pas des ") dans la fonction aprés ?

EXEMPLE
= somme('O1':'O6')

bien sur le résultat me donne #nom


merci quand même d'avoir cherché

amicalement

chantal

 

[Hervé]

Re : Somme et variable en VBA

re

de rien

mais j'ai pas de souci chez moi 😕

salut

 

[Bebere]

Re : Somme et variable en VBA

bonjour le fil

plus facile à lire celle de Hervé,mais commence en ligne 1
ActiveCell.FormulaLocal = "=SOMME(o1😱" & last & ")"

la suivante commence en ligne 9
ActiveCell.FormulaLocal = "=SOMME(o" & 9 & "😱" & last & ")"

à bientôt

 

[Hervé]

Re : Somme et variable en VBA

re 🙂

encore plus simple bebere :

ActiveCell.FormulaLocal = "=SOMME(o9:o" & last & ")"

salut