Code somme en VBA

[jmh1]

Bonjour

quelqu'un pourrait-il me donner le code pour calculer une somme en vba
d'une plage de cellule "activecell" à "activecell(24,0)"

Merci

 

[Robert]

Re : Code somme en VBA

Bonjour consonnes, bonjour le forum,

peut-être comme ça :

Sub Macro1()
Dim s As Double
s = Application.WorksheetFunction.Sum(Range(ActiveCell, ActiveCell.Offset(24, 0)))
MsgBox s
End Sub

 

[JNP]

Re : Code somme en VBA

Bonjour Jmh1, re Robert 🙂,
Autre solution

Sub test()
Dim I As Integer, Résultat As Double
With ActiveCell
For I = .Row To .Row + 24
Résultat = Résultat + Cells(I, .Column).Value
Next I
End With
MsgBox Résultat
End Sub

Bonne journée 😎

 

[jmh1]

Re : Code somme en VBA

Merci Robert & JNP,

J'ai donc utilisé la solution de Robert.

C'est ce que j'avais essayé mais j'avais du faire une erreur de syntaxe.

Merci encore !