Réaliser somme de cellules avec macro

[klorane]

Bonjour à tous,

quelle macro doit on ecrire pour obtenir via une macro la somme des cellule A1 à A3 dans la cellule B4 par exemple?

Merci

klorane

 

[Lii]

Re : Réaliser somme de cellules avec macro

Bonjour,

A voir (entre autres):

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

 

[cbea]

Re : Réaliser somme de cellules avec macro

Bonjour klorane, Lii,

Voici une autre solution.

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

 

[klorane]

Re : Réaliser somme de cellules avec macro

Merci à vous 2.

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

Parfait.

Encore merci.

Klorane

 

[BOISGONTIER]

Re : Réaliser somme de cellules avec macro

Bonjour,

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

JB