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

**mazuno** · 28/06/2010, 10h47

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

Code :

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

1
2
3
4
5
6
7
8
 
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

**mercatog** · 28/06/2010, 11h16

Un exemple à adapter

Code :

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

1
2
3
4
5
6
7
8
9
Dim tablo
Dim som As String
Dim i As Byte
 
tablo = Array("A1", "A4", "C3")
For i = LBound(tablo) To UBound(tablo)
som = som & "+" & tablo(i)
Next i
Range("D5").Formula = "=" & Mid(som, 2)

**mazuno** · 28/06/2010, 12h55

excellent merci, j'ai adapté le code a mon programme,
seul petit hic, il m'insère des "$" :
=$G$32+$G$36+$G$40

sais tu comment je pourrai faire pour éviter ces dollars?
merci de ton aide

**Gorfael** · 28/06/2010, 13h02

Salut mazuno et leforum
Pas sûr de comprendre
si faire la somme des cellules dont l'adresse est en B1:C5 dans A1, par code :

Code :

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

1
2
3
4
5
6
Sub test()
Dim Cel As Range
For Each Cel In Range("B1:C5")
    [A1] = [A1] + Range(Cel)
Next Cel
End Sub

en B1:C5 contiennent des adresses (H1, G4, etc...)
A+

**Didier Gonard** · 28/06/2010, 13h06

excellent merci, j'ai adapté le code a mon programme,
seul petit hic, il m'insère des "$" :
=$G$32+$G$36+$G$40

il s'agit de base d'adresses relatives ou absolues, donc vois dans l'aide vba les arguments de Address pour l'alimenter à ta guise..

cordialement,

Didier