Code VBA pour Somme

[Olyxier]

BONSOIR
pour calculer la somme de 5 cases une au dessus de l'autre qu'elle formule faut il utiliser exp la somme de A1.A2.A3.A4.A5 merci beaucoup

 

[JYLL]

Re : Code VBA pour Somme

Bonsoir Olyxier,

Tu peux faire cela:

Sub Add()
dim somme as long, i as byte
somme=0
For I = 1 to 5
somme= somme +cells(i,1)
next i
résul = MsgBox("La somme est : " & Somme, vbInformation, "Résultat")
End Sub

 

[Olyxier]

Re : Code VBA pour Somme

Soir jyll marche pas et un peu long non bonne soirée

 

[myDearFriend!]

Re : Code VBA pour Somme

Bonsoir Olyxier, Jyll,

Une autre façon de faire grâce aux WorkSheetFunctions qui savent faire ça naturellement :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Test()
    MsgBox "La somme est : " & Application.Sum(Range("A1:A5")), vbInformation, "Résultat"
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Cordialement,

Nb: mis à part le "Nest" qu'il convient d'interpréter en "Next" (simple faute de frappe), je ne vois pas pourquoi le code de notre ami Jyll ne fonctionnerait pas...