Code VBA: somme de cellules avec boucle unique

Version imprimable

Bonsoir,

Je débute sur VBA et je souhaiterais un petit coup de main pour terminer un premier "devoir".

Je souhaiterais développer un code permettant de réaliser des sommes de cellules (contenant des lettres sans signification), le tout étant inclus dans une boucle. J'ai développé un code (il vaut ce qu'il vaut...) mais cela ne fonctionne pas. Par exemple:
- en C4 indiquer la somme des cellules C45, C86, C127, C168... jusque C902.
- en C5 indiquer la somme des cellules C46, C87, C128, C169... jusque C903.
- en C6 indiquer la somme des cellules C47, C88, C129, C170... jusque C904.
...
- en C40 indiquer la somme des cellules C81, C122, C163, C204... jusque C938.

A chaque fois, le bond est de 41 (pour cela qu'une boucle me parait possible...

Vous comprenez l'intérêt de ma boucle, elle m'épargne 36 lignes (sachant que je dois réaliser le tout sur plusieurs colonnes...)

Voici le code auquel j'avais pensé:
Code:

1 2 3 4 5 6 Sub synthese() Dim j As Long For j = 4 To 40 Cells(j, 3) = Cells(j + 41, 3) + Cells(j + 82, 3) + Cells(j + 123, 3) + Cells(j + 164, 3) + Cells(j + 205, 3) + Cells(j + 246, 3) + Cells(j + 287, 3) + Cells(j + 328, 3) + Cells(j + 369, 3) + Cells(j + 410, 3) + Cells(j + 451, 3) + Cells(j + 492, 3) + Cells(j + 533, 3) + Cells(j + 574, 3) + Cells(j + 615, 3) + Cells(j + 656, 3) + Cells(j + 697, 3) + Cells(j + 738, 3) + Cells(j + 779, 3) + Cells(j + 820, 3) + Cells(j + 861, 3) Next End Sub
Merci de votre aide,

Thomas

08/01/2014, 02h04
clementmarcotte

Bonjour

Citation:

Envoyé par Thomas4530

Bonsoir,
Je souhaiterais développer un code permettant de réaliser des sommes de cellules (contenant des lettres sans signification),

On ne peut pas faire la somme d'une cellule qui contient du texte.

Citation:

le tout étant inclus dans une boucle. J'ai développé un code (il vaut ce qu'il vaut...) mais cela ne fonctionne pas. Par exemple:
- en C4 indiquer la somme des cellules C45, C86, C127, C168... jusque C902.

Je n'ai pas vraiment le temps d'élaborer, mais pour cette première ligne, tu peux faire plus efficace avec la fonction native d'Excel (compilée) Somme(). Tu pourras t'inspirer de cela, pour compléter ta boucle.

Code:

cells(4,3).formulalocal = "=Somme("c45:c902)"

ou, ce qui revient au même:

Code:

cells(4,3).formula = "=Sum("c45:c902)"

P.S. J'ai l'impression (vraiment pas essayé, je peux me tromper) que tu as
codé ton cells à l'envers. Pour autant que me souvienne c'est :

cells(ligne, colonne)

Et c'est la même chose dans un tableau à double entrée (VB et VBA)

somme de cellules

bonjour,

tout d abord avec un pas de 41 , en partant de 45 la dernière cellule est 906 et non 902. 45 +(41*21) = 906

voici un code qui devrait donner satisfaction si j'ai bien compris le problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub somme()
For j = 4 To 40 step 1                                     ' de C4 à C40 avec pas = 1
    Cells(j, 3) = 0                                    ' réinitialisation avant calcul suivant
    For i = 41 + j To 902 + j Step 41        pas = 41.
    '  Au premier passage avec j = 4 : 41+4 = 45  puis 86, 127 .....
    '  Au second passage avec j = 5 : 41+5 = 45  puis 87, 128 .....
    '  et ainsi de suite ............
        Cells(j, 3) = Cells(j, 3) + Cells(i, 3)    
    Next i
Next j
End Sub

Cordialement,