Réaliser somme de cellules avec macro

L

Lii

XLDnaute Impliqué

• 27 Mai 2008

• #2

Re : Réaliser somme de cellules avec macro

Bonjour,

A voir (entre autres):

Code:

Sub Somme()
  Dim I As Byte
  Range("B4") = ""
  For I = 1 To 3
    Range("B4") = Range("B4") + Range("A" & I)
  Next
End Sub

 

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 27 Mai 2008

• #3

Re : Réaliser somme de cellules avec macro

Bonjour klorane, Lii,

Voici une autre solution.

Code:

    Range("B4").Value = Application.WorksheetFunction.Sum(Range("A1:A3").Value)

 

Vote positif 0 Vote négatif

K

klorane

XLDnaute Occasionnel

• 27 Mai 2008

• #4

Re : Réaliser somme de cellules avec macro

Merci à vous 2.

j'ai essayé les 2 et ça fonctionne parfaitement.

Parfait.

Encore merci.

Klorane

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Mai 2008

• #5

Re : Réaliser somme de cellules avec macro

Bonjour,

Code:

[B4] = [sum(A1:A3)]

JB

 

Vote positif 0 Vote négatif