Somme des élements d'un tableau

Bonjour,

L'aide en ligne précise pour cette fonction : WorksheetFunction.Sum, méthode
Si un argument est un tableau de référence, seuls les nombres dans ce tableau ou cette référence sont pris en compte

J'ai beau chercher mais , je ne trouve pas comment établir < un tableau de référence >

La construction du tableau a été effectuée comme suit

Code:

---

1 2 3 4 5 6 7 8

Dim MaPlage As Range, PlageSum As Range Dim V As Variant, i As Byte, EUR As Double   '* Définir la plage Set MaPlage = Worksheets("Data").Range("B20:O28")   '* Tableau de travail V = MaPlage

---

Je souhaiterais que ce < un tableau de référence > reprenne les références
suivantes : les 8 lignes de la colonne 12

V(1, 12), V(2, 12), V(3, 12), V(4, 12), V(5, 12), V(6, 12), V(7, 12), V(8, 12)

En fait je cherche a construire une fonction qui effectuerait le total du tableau de référence qui serait transmis en paramêtre j'obtiendrait donc

Code:

---

V(9, 12) = WorksheetFunction.Sum( Tableau de référence )

---

au lieu de

Code:

---

V(9, 12) = WorksheetFunction.Sum(V(1, 12), V(2, 12), V(3, 12), V(4, 12), V(5, 12), V(6, 12), V(7, 12), V(8, 12))

---

Merci d'avance de votre aide

bonjour,
pourquoi ne pas mettre directement:

Code:

---

Cells(9, 12) = WorksheetFunction.Sum(Range("L1:L8"))

---

tu auras dans la cellule L9 la somme des cellule L1 à L8, sans 'tableau'.

Bonsoir

Comme je l'ai précisé dans mon exposé, mon code s'applique a un tableau

Code:

---

1 2	'* Tableau de travail V = MaPlage

---

Je ne saurais donc pas appliquer le code que vous me proposez

Cordialement

Bonsoir à tous

Si j'ai bien compris, mais peut-être que !!!!, essaie ceci :

Code:

---

masomme01 = Application.WorksheetFunction.Sum(maplage)

---

Eric

Je mettrais plutôt, pour totaliser la colonne 12 de la zone :

Code:

---

masomme01 = Application.WorksheetFunction.Sum(maplage.Range("L1:L8"))

---

Bonsoir à tous

Pour être plus clair :

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Dim maplage As Range Dim masomme01 As Integer   Sub masomme_plage() Set maplage = Sheets("Feuil1").Range("A1:A4") masomme01 = Application.WorksheetFunction.Sum(maplage) End Sub

---

après il suffit d'adapter, mais j'ai peut-être mal compris l'exposé de Sogestion
Eric

Citation:

---

Envoyé par Sogestion

...
Set MaPlage = Worksheets("Data").Range("B20:O28")
...
Je souhaiterais que ce < un tableau de référence > reprenne les références
suivantes : les 8 lignes de la colonne 12
...

---

d'où ma proposition de

Code:

---

masomme01 = Application.WorksheetFunction.Sum(MaPlage.Range("L1:L8"))

---

Citation:

---

En fait je cherche a construire une fonction qui effectuerait le total du tableau de référence qui serait transmis en paramêtre j'obtiendrait donc

V(9, 12) = WorksheetFunction.Sum( Tableau de référence )

---

v(9,12) = cellule L9 (ligne 9, 12 = colonne L). Tu travails avec la feuil Data.
Tu veux la somme de tableau de référence mais ce que tu appelles ton tableau n'est rien d'autre qu'un "range" ou une plage de cellule.

Citation:

---

Je souhaiterais que ce < un tableau de référence > reprenne les références
suivantes : les 8 lignes de la colonne 12

V(1, 12), V(2, 12), V(3, 12), V(4, 12), V(5, 12), V(6, 12), V(7, 12), V(8, 12)

---

ici tu fais référence aux lignes 1 à 8 de la colonne 12 donc la plage L1:L8

pour résumer: tu veux dans la cellule L9, la somme de la plage de cellule qui se trouve au-dessus à savoir L1:L8 ou sinon je n'ai rien compris.

essaie ceci:

Code:

---

1 2 3 4 5 6 7 8 9

Sub test_somme() 'je travail avec la feuille Data With Sheets("Data")   'je calcul la somme de la plage L1:L8 et je met le résultat 'en C9 de la feuille Data .Range("L9") = WorksheetFunction.Sum(.Range("L1:L8")) End With End Sub

---

note:

Citation:

---

L'aide en ligne précise pour cette fonction : WorksheetFunction.Sum, méthode
Si un argument est un tableau de référence, seuls les nombres dans ce tableau ou cette référence sont pris en compte

---

ce qui veut dire que dans ta plage :

Code:

---

1 2	'* Définir la plage Set MaPlage = Worksheets("Data").Range("B20:O28")

---

il fera la somme de toutes les cellules ou il y a un nombre.
j'ai fais l'expérience : de A1:A7 j'ai mis les jours de la semaine, B1:B8 des nombres, en C1:C8 les mois de l'année. Pour la plage A1:C8, j'ai écrit ceci:

Code:

---

1 2 3

With Sheets("Feuil1") .Range("B9") = WorksheetFunction.Sum(.Range("A1:C8")) End With

---

j'ai bien la somme des nombres.

Maintenant je viens de penser à un truc.
tu définies la plage B20:O28. A quel cellule correspondrait v(1,1) pour toi?
à la cellule B20 ?

Bonsoir

Comme je l'ai signalé dans mon post initial

Code:

---

1 2 3 4 5 6 7 8

Dim MaPlage As Range, PlageSum As Range Dim V As Variant, i As Byte, EUR As Double   '* Définir la plage Set MaPlage = Worksheets("Data").Range("B20:O28")   '* Tableau de travail V = MaPlage

---

toute ma procédure s'exécute donc sur un tableau et non sur la feuille excel

Citation:

---

Suivant l'aide en ligne :

Tableau
Ensemble d'éléments, indexés séquentiellement, ayant le même type de données intrinsèque.
Chaque élément d'un tableau est associé à un numéro d›index qui l'identifie de manière univoque.
Les modifications apportées à un élément de tableau n'affectent pas les autres éléments.

---

Ce n'est qu'en fin de procédure que
MaPlage = Worksheets("Data").Range("B20:O28")
est mise a jour par l'instruction inverse

'* Mise a jour de la plage
MaPlage = V

En réponse a la question

Citation:

---

Maintenant je viens de penser à un truc.
tu définies la plage B20:O28. A quel cellule correspondrait v(1,1) pour toi?
à la cellule B20 ?

---

v(1,1) ne correspond a aucune cellule

V étant le Tableau < Dim V As Variant >
V(1,1) = Ligne 1/ Colonne 1 ) du tableau

Vous conviendrez que les lignes/Colonnes d'un tableau ne corresponde en rien
aux lignes et colonnes définies dans un < Range >

Citation:

---

v(9,12) = cellule L9 (ligne 9, 12 = colonne L). Tu travails avec la feuil Data.
Tu veux la somme de tableau de référence mais ce que tu appelles ton tableau n'est rien d'autre qu'un "range" ou une plage de cellule.

---

Désolé mais ma procédure travaille sur les lignes/colonnes d'un tableau et non un "range" ou une plage de cellule.

Donc v(9,12) égale la Ligne n° 9 or Maplage précise
Set MaPlage = Worksheets("Data").Range("B20:O28")
la dernière ligne de cette plage est n° 28

Cordialement

autant pour moi :aie:

je ne pense pas que cela puisse ce faire sinon de faire comme tu l'as écrits dans ton premier post.

il te reste soit à faire une boucle sur les lignes de ta colonne 12

Code:

---

1 2 3 4 5

For i = 1 To 8 vresult = vresult + V(i, 12) Next i   V(9, 12) = vresult

---

soit créer un autre tableau :'tabref' et faire ceci:

Code:

---

1 2 3 4

Dim V As Variant, tabref As Variant V = Sheets("Feuil1").Range("B20:O28") tabref = Sheets("Feuil1").Range("M20:M27") 'correspondrait à (V(1,12):V(8,12)) V(9, 12) = WorksheetFunction.Sum(tabref)

---

Bonsoir Hervé

Merci pour cette procédure

Code:

---

1 2 3 4

Dim V As Variant, tabref As Variant V = Sheets("Feuil1").Range("B20:O28") tabref = Sheets("Feuil1").Range("M20:M27") 'correspondrait à (V(1,12):V(8,12)) V(9, 12) = WorksheetFunction.Sum(tabref)

---

d'autant qu'elle m'a permis de trouver la réponse a ma demande initiale

Citation:

---

L'aide en ligne précise pour cette fonction : WorksheetFunction.Sum, méthode
Si un argument est un tableau de référence, seuls les nombres dans ce tableau ou cette référence sont pris en compte

---

Etablir un tableau de référence est en fait assez simple

Code:

---

1 2 3 4

DIM PlageSum as Variant   PlageSum = Array(V(1, 12), V(2, 12), V(3, 12), V(4, 12), V(5, 12), V(6, 12), V(7, 12), V(8, 12)) V(9, 12) = WorksheetFunction.Sum(PlageSum)

---

Personnellement j'opterais pour votre fonction en raion de sa lisibilité, il faudra toutefois être attentif a la mise a jour préalable de la plage : < MaPlage = V >

Code:

---

V(9, 12) = WorksheetFunction.Sum([M20:M27])

---

Bonne soirée et bon WE

Cordialement :ccool:
Albert