Fonction Sum

Bonjour,

J'ai besoin d'aide pour une fonction hyper simple, mais qui me donne du fil à retordre pour aujourd'hui !

Je souhaite faire la somme d'une plage de cellule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub calculepourcentage() Dim i As Integer Dim total As Integer Dim j As Integer     'cal Worksheets("tut").Select i = 4   Cells(29, 4) = Cells(4, 4) + Cells(5, 4) .... Cells(29,4)="SUM(a4:a28)   End Sub

---

Je ne trouve pas la synthaxe de SUM ?
Merci

Cordialement

sans comprendre ce que tu veux faire sachant que la somme se fait facilement avec excel sans besoin de macro, voici comment tu peux l'écrire (mais pour quel intérêt !!!)

Code:

---

Cells(29, 4) = WorksheetFunction.Sum(Range("A4:A28"))

---

Salut

Si tu cherches à placer une formule dans la cellule, il manque le "="

Code:

---

Worksheets("tut").Cells(29,4)="=SUM(a4:a28)"

---

++
Qwaz

re

Merci

Effectivement vu simplement iil n'y a pas vraiment d'intérêt
mais il s'agit d'un bout de programme qui permet d'alimenter un tableau dynamique.
Et dans ce dernier, je dois remettre à vide toutes les cellules dont la necessité d'effectuer le calcul dans le programme plutot que directement dans la cellule du tableur.

En tout cas merci
A bientot
++

Bonjour,

dans ce cas il y a aussi la méthode Evaluate (consulter l'aide VBA intégrée) …

__________________________________________________________________________________________________

http://www.developpez.net/forums/att...s-charlie.jpg/