Discussion :

[kikie43]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

++
Qwaz

[kikie43]

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

[Marc-L]

Bonjour,

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

__________________________________________________________________________________________________