Effectuer le total d'une partie de colonne par un code VBA

Bonsoir,

Lors d'une procédure, je devrais inclure une somme à mon code, de la cellule G11 à dernière cellule utilisée de cette colonne, dernière cellule qui peut-être sur une ligne quelconque.

J'ai essayé avec l'enregistreur de macro et j'obtiens le résultat suivant :

    Range("G11").End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.FormulaR1C1 = "=SUM(R[-479]C:R[-1]C)"

mais bien entendu que ça ne fonctionne pas si le nombre de lignes n'est pas identique à cette fois là (479 lignes).

Pouvez-vous m'aider, de manière à ce que ça fonctionne quel que soit le nombre de lignes ?

Salut Yvouille,

Ce que tu peux faire, c'est nommer ta cellule dans excel en "debut" par exemple et dans ta macro:

Sub yvouille()
    Range("G11").End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=SUM(debut:R[-1]C)"
End Sub

J'attends ta réponse,

Souri84

Bonsoir,

une autre variante :

[G65000].End(xlUp)(2).FormulaR1C1 = "=SUM(R11C:R[-1]C)"

ou si tu veux la somme sans noter la formule :

x = Application.Sum(Range("G11:G" & [G65000].End(xlUp).Row))

Bonjour,

Essaye le code suivant :

DerLig = Range("G65536").End(xlUp).Row
Range("G" & DerLig + 1).Formula = "=SUM(R[-" & DerLig - 10 & "]C:R[-1]C)"

édit : Salut souri84, Salut felix. Bravo felix pour le code si économe

Bonsoir à vous tous,

Vous me proposez beaucoup de solutions possibles. Il va bien me falloir quelques jours pour toutes les essayer.

Je ne manquerai pas de vous faire part des résultats obtenus.

Merci déjà et à bientôt.

Bonsoir,

J'ai essayé absolument au hasard la proposition de Felix :

[G65000].End(xlUp)(2).FormulaR1C1 = "=SUM(R11C:R[-1]C)"

Comme celle-ci fonctionne parfaitement, je n'ai pas été plus loin dans mes essais.

Je tiens cependant à remercier toutes les personnes qui m'ont apporté leur aide.

Bonne soirée à tous.

Rechercher des sujets similaires à "effectuer total partie colonne code vba"