[VBA] Somme à taille variable

[Moulinois]

RESOLU


Bonjour,

Dans mon code, je dois avoir Range("J13").Formula = "=C5+C16+C27+C38+C49+C60+C71", le nombre d'éléments de la somme variant (mais suit une suite arithmétique de raison 11).

Connaissant le nombre d'éléments, comment faire pour que VBA me sorte une formule sur mesure en J13 ?


Merci

 

[suistrop]

Re : [VBA] Somme à taille variable

Hello,


par exemple :

soit x le nombre d élément que tu va récupérer je ne sais ou,ici dans la cellule A2 :
ou tu peux aussi mettre x=10

x=cells(2,1) 'x=10 enfin ce que tu veux...
for i = 0 to x-1
[COLOR=Green]'ici on commence a la ligne 5 donc 5+11*i si tu commence a la ligne 7 : 7+11*i[/COLOR]
    cells(13,10)=cells(5+11*i,3)

next i

a tester dit moi si ca marche et si ca marche pas donne moi ton fichier que je puisse faire des test !

 

[Moulinois]

Re : [VBA] Somme à taille variable

Salut,

Si j'ai compris ton code, ça ne marchera pas
Premièrement parce qu'il ne fait pas de somme (Il faudrait Cells(13, 10) = Cells(13, 10) + Cells(5 + 11 * i, 4))
Deuxièmement car je veux en J13 la formule me permettant de calculer la somme et non la somme directement (ses éléments sont amenés à changer après que la macro ait été lancée).

@+

 

[job75]

Re : [VBA] Somme à taille variable

Bonjour,

N étant le nombre d'éléments dans la formule, entrez le code (non testé) :

texte = "=C5"
For i = 1 To N - 1
texte = texte & "+C" & 5 + i * 11
Next
Range("J13").Formula = texte

A+

 

[Moulinois]

Re : [VBA] Somme à taille variable

job75> Parfait, c'est exactement ça

Merci.

 

[job75]

Re : [VBA] Somme à taille variable

Pour N = 1, il peut y avoir bouclage. Vous pouvez écrire alors :
For i = 1 To N - 1 Step 1
qui évite tout problème.
A+

 

[BOISGONTIER]

Re : [VBA] Somme à taille variable

Bonjour,

J2 contient le nb d'items:

=SOMMEPROD(DECALER($C$5;;;J2*11)*(MOD(LIGNE(DECALER($C$5;;;J2*11))+11-LIGNE(C5);11)=0))

JB

 

[Moulinois]

Re : [VBA] Somme à taille variable

For i = 1 To N - 1 Step 1

Re,
Que signifie Step 1 ?

BOISGONTIER> Merci mais ça correspond moins à ce que je cherche.