Discussion :

[Thomas4530]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou, ce qui revient au même:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[nibledispo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,