Discussion :

[CristofMartins]

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 :

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

1
2
 
listobjects.totalsrowrange.value

mais ça ne renvoie rien.
merci d'avance

[CristofMartins]

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 :

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

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

[Philippe Tulliez]

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 :

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

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 :

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

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