ListObjects avec total

Bonjour à tous.
je viens d'apprendre que les listobjects permettent de calculer directement une moyenne, ou une somme de toutes les valeurs d'une collone. J'ai essayé de comprendre comment ça marche et c'est tout simple à mettre en place mais par contre pour récupérer la valeur je ne trouve rien. Quelqu'un pourrait me donner une piste peut-etre ?
Je suis parti sur un truck genre :

Code:

---

1 2	listobjects.totalsrowrange.value

---

mais ça ne renvoie rien.
merci d'avance

re-bonjour, j'ai trouvé la solution à mon problème.
Dans mon cas, le total est dans la troisième colonne de mon tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim sht as worksheet Dim table as listobject Dim cell as range Dim i as integer   set sht = sheets("feuil1") set table = sht.listobjects("TAB") i = 1   for each cell in table.totalsrowrange if i = 3 then msgbox cell.value end if i = i + 1 next cell

---

Bonjour,
Je sais que le sujet est résolu mais il me semblait intéressant d'apporter une solution sans boucle.
Cette solution a l'avantage de fonctionner sans que la ligne des totaux ne soit affichée.
Exemple avec la somme de la colonne 4 d'un tableau nommé maListe se trouvant dans la feuille nommée [db] et dont le nom de l'étiquette est "Total"

Code:

---

1 2 3 4 5

Sub TotaliseListObject() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db") Dim list As ListObject: Set list = sht.ListObjects("maListe") msgbox Application.WorksheetFunction.Sum(list.ListColumns("Total").DataBodyRange) End Sub

---

On peut également utiliser le n° de la colonne

Code:

---

Application.WorksheetFunction.Sum(list.ListColumns(4).DataBodyRange)

---