somme des cellules dont l'adresse est contenue dans un tableau?

[mazuno]

bonjour, je voudrai mettre dans une cellule la somme d'autre cellules dont les adresses ont étés récupérées dans un tableau

Dim SousTotaux(20)
(...)
For i = 1 To NombreDeSousEquipes
(......)
     SousTotaux(i) = ActiveCell.Address
(....)
Next i

je veux maintenant écrire la somme de mes cellules et je ne sais pas quelle syntaxe adopter!
j'ai essayé des trucs du genre
ActiveCell.Formula = "=SUM(SousTotaux(1 to NombreDeSousEquipes))"

mais évidemment ça ne fonctionne pas ^^

si quelqu'un aurait la bonté de m'éclairer 🙂
merci

 

[tototiti2008]

Re : somme des cellules dont l'adresse est contenue dans un tableau?

Bonjour mazuno,

à tester

ActiveCell.Formula = "=SUM(" & Join(SousTotaux, ",") & ")"

 

[mazuno]

Re : somme des cellules dont l'adresse est contenue dans un tableau?

bonjour et merci pour ta réponse
ça me met effectivement la somme dans ma formule, mais pour un tableau ou j'ai mis par exemple 3 cellules, j'ai une formule comme cela :

=SOMME(;$D$32;$D$37;$D$41;;;;;;;;;;;;;;;;;)

la somme est bien effectuée mais bon, serais-ce possible d'éliminer les ";" superflus?
et aussi sais tu comment je peux enlever les "$" ? car j'aurai besoin d'étendre la formule ensuite :/
merci de ton aide en tout cas c'est un bon pas en avant pour moi déjà 🙂

 

[tototiti2008]

Re : somme des cellules dont l'adresse est contenue dans un tableau?

Re,

à tester

Dim SousTotaux()
(...)
Redim SousTotaux(1 To 1)
For i = 1 To NombreDeSousEquipes
(......)
     SousTotaux(ubound(Soustotaux)) = ActiveCell.Address (0,0)
Redim Preserve SousTotaux(1 to ubound(Soustotaux) +1)
(....)
Next i
If Ubound(SousTotaux)>1 then Redim Preserve SousTotaux(1 to ubound(Soustotaux) -1)