Somme de N cellules

[NicolasC91]

Bonjour,

Je suis confronté au problème suivant : Je désire faire la somme de N cellules sur une colonne.

Je sais faire une somme avec un nombre de cellules déterminées.
Par exemple ici faire la somme des 4 cellules en dessous

-------------------------------------------------------------------

Sub Test()

ActiveSheet.Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[4]C)"

End Sub

-------------------------------------------------------------------

J'essaie maintenant de faire la somme de N cellules en dessous

-------------------------------------------------------------------

Sub Test()

Dim N As Integer

ActiveSheet.Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[N]C)"

End Sub

-------------------------------------------------------------------

Cependant ce bout de code ne marche pas ...

Quelqu'un aurait-il la solution ?

Merci 🙂

 

[Staple1600]

Re : Somme de N cellules

Bonjour


Tu n'es pas loin du but

(Regardes dans les Discussions similaires en bas de page)

Sinon voici

Sub a()
Dim N As String
N=Range("B65536").End(xlUp).Row
    ActiveSheet.Range("B8").FormulaR1C1 = "=SUM(R[1]C:R[" & N & "]C)"
End Sub

EDITION: Bonjour Jean-Marcel (oui tu crois bien)
Pourquoi conserver l'ActiveCell dans ton code ?
Il faut "Dimer" en String pas en Integer

 

[NicolasC91]

Re : Somme de N cellules

Merci super =)