somme automatique

[argon1515]

Pour faire une somme
A la main je clic sur somme automatique et j'ajuste la plage. Pas de probleme.

Avec l'enregistreur de macro:
Sub Ess
Range("B7").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C)"
Range("C7").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End Sub

Comment faire en VBA car le nombre de colonnes et le nombre de lignes varient a chaque traitement.

Fichier test_somme.xls en exemple

 

[pierrejean]

Re : somme automatique

bonjour argon

une possibilité

 

[argon1515]

Re : somme automatique

Merci pierrejean cela me convient parfaitement.
maintenant je vais "eplucher" le code de la macro car je suis debutant en VBA et il faut que je comprenne ce que tu as fait.
Encore merci et bonne journée

 

[pierrejean]

Re : somme automatique

Re

version avec commentaires (j'espere comprehensibles)

 

[argon1515]

Re : somme automatique

Merci pour ce complément je garde le code expliqué dans mes archives pour
une prochaine fois m'en inspirer.
Bon apres midi