XL 2010 Lire total colonne Tb structuré

[cathodique]

Bonsoir,

Je n'arrive pas à trouver la syntaxe correcte pour lire le résultat d'une colonne sur la ligne Total.
En utilisant l'index de la colonne le code ci-dessous fonctionne.
Mais quand j'utilise le nom de la colonne le code plante.

Sub lire_valeur_Tb()
  valeur = Range("Tablo").ListObject.DataBodyRange.Columns(6).Cells(Range("Tablo").ListObject.ListRows.Count + 1, 1).Value
MsgBox valeur
End Sub

Merci pour votre aide.

Bonne soirée.

 

[TooFatBoy]

Bonjour,

Je n'arrive pas à trouver la syntaxe correcte pour lire le résultat d'une colonne sur la ligne Total.

Exemple à tester :

Sub lire_valeur_Tb()
'
    valeur = Range("Tablo[[#Totals],[Non Adoptable]]").Value
    MsgBox "Total de la colonne 'Non Adoptable' = " & valeur

End Sub

 

[vgendron]

Hello
un indice ici

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

 

[cathodique]

Bonjour,


Exemple à tester :

Sub lire_valeur_Tb()
'
    valeur = Range("Tablo[[#Totals],[Non Adoptable]]").Value
    MsgBox "Total de la colonne 'Non Adoptable' = " & valeur

End Sub

Bonsoir @TooFatBoy 😉,

C'est parfait! Merci beaucoup.

Bonne soirée.

 

[TooFatBoy]

C'est parfait! Merci beaucoup.

Avec plaisir. 😉


Un supplément, juste pour le fun :

Sub lire_valeur_Tb()
'
Dim MaColonne As String

    MaColonne = "Non Adoptable"

    valeur = Range("Tablo[[#Totals],[" & MaColonne & "]]").Value
    MsgBox "Total de la colonne '" & MaColonne & "' = " & valeur

End Sub

 

[cathodique]

Hello
un indice ici

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

Bonsoir @vgendron 😉,

La page que tu m'as proposée, est déjà épinglée dans mon navigateur.
Bigleux, j'ai dû ne pas voir ou trouver un indice pour solutionner mon problème.
La solution de @TooFatBoy me convient.

Encore merci.

Bonne soirée