Code VBA pour Somme

Olyxier · 12 Novembre 2006

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 · 12 Novembre 2006

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 · 12 Novembre 2006

Re : Code VBA pour Somme

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

myDearFriend! · 12 Novembre 2006

Re : Code VBA pour Somme

Bonsoir Olyxier, Jyll,

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

Code:

[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...

Code VBA pour Somme

Olyxier

XLDnaute Occasionnel

JYLL

Nous a quitté

Olyxier

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Code VBA pour Somme

Olyxier

XLDnaute Occasionnel

JYLL

Nous a quitté

Olyxier

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency