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
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