Somme sur une plage

[Jerry]

Bonsoir !!

Tout d'abord merci d'avance aux personnes qui auront eu la courtoisie de consulter mon message.

Je désire effectuer une somme en VBA sur Excel.
Je veux que ma somme s'effectue sous VBA et non sous Excel (je ne veux pas que la formule soit visible sur Excel).

La somme que je désire effectuer est de ce type : sommes de A3+A10+A17+A24-->A640
C'est donc une somme 'fragmenté'...
En faite toutes les cellules que je désire additionner sont distantes de 7 et il y en a 91.

Connaissez un code qui me permet d'additionner ces cellules - débutant en A3 s'incrémentant de 7 et se terminant à 640 !

Merci beaucoup - et profitez bien du week end !!

Salutations

Jérémie

 

[myDearFriend!]

Bonsoir Jerry,

Soit la fonction ci-dessous placée dans un module de code général (Module1 par exemple) :

Public Function Som7()
Dim L As Integer
      For L = 3 To 640 Step 7
            Som7 = Som7 + Cells(L, 1).Value
      Next L
End Function

Si en B1, tu tapes '=Som7()', tu obtiendras l'addition de ce que tu souhaites.

Cordialement,

 

[Jerry]

Didier merci,

E faite je désire faire ce calcul dans une feuille ce qui va me permettre de faire tourner en boucle la macro et donc d'actualiser les données instantanéments.

j'ai essayé un truc comme ca mais sa ne fonctionne pas...



For I9 = 0 To 1
vDec9 = I9 * 7
If Target.Address = Range('$E$432').Offset(vDec9).Address Then
For L = 3 To 640 Step 7
som7 = som7 + Range(L).Value
Next L
Range('E425') = som7
End If
Next I9

Voyez vous d'ou l'erreur provient ?

Merci !

Jérémie

 

[jerry]

Toutes mes exuses pour cette question... j'ai trouvé la solution !!

Bonne nuit !

et merci

Jerry