Code somme en VBA

jmh1 · 14 Septembre 2010

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 · 14 Septembre 2010

Re : Code somme en VBA

Bonjour consonnes, bonjour le forum,

peut-être comme ça :

Code:

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

JNP · 14 Septembre 2010

Re : Code somme en VBA

Bonjour Jmh1, re Robert 🙂,
Autre solution

Code:

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 · 14 Septembre 2010

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 !

Code somme en VBA

jmh1

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

jmh1

XLDnaute Occasionnel

Discussions similaires

Code somme en VBA

jmh1

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

jmh1

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency