Microsoft 365 Obtenir par VBA la lettre de la dernière colonne d'un tableau STRUCTURE

[BenHarber]

Bonjour le Forum,
Je souhaiterais connaître le code VBA (s'il existe ?) qui me permettrait d'obtenir la lettre de la dernière colonne d'un tableau structuré.

En gros, au début de ma proc. j'ai :
Dim monTablo As ListObject
Dim derCol
Set monTablo = Sheets("Feuil1").ListObjects("Tableau1")

La commande :
derCol = tabSrc1.ListRows.Count
...me renvoie le numéro de la dernière colonne.
Seulement moi, je souhaite connaître la lettre de cette colonne ?

Savez-vous s'il existe une fonction qui me renvoie directement cette info ?

Merci d'avance pour vos avis et suggestions

 

[chris]

Bonjour

De façon générale ce n'est pas très utile pour manipuler un tableau structuré
De même il n'est pas conseillé d'utiliser

Set monTablo = Sheets("Feuil1").ListObjects("Tableau1")

mais plutôt

Set monTablo = Range("Tableau1").ListObject

afin de pouvoir déplacer le tableau ou renommer la feuille sans que le code ait besoin d'être modifié
.ListRows.Count renvoie le nombre des lignes hors titres du tableau et non le nombre de colonnes

Par ailleurs un tableau ne commence pas toujours en A1...

Sous réserve que la tableau finisse avant AA

Set monTablo = Range("Tableau1").ListObject
dercol = monTablo.Range.Columns.Count + monTablo.Range.Column - 1
Lettre = Chr(dercol + 64)

Sinon

Set monTablo = Range("Tableau1").ListObject
dercol = monTablo.Range.Columns.Count + monTablo.Range.Column - 1
Col = Split(Cells(1, dercol).Address, "$")
Lettre = Col(1)

Il est conseillé de nommer ses tableaux autrement que Tableau1 et ses onglets autrement que Feuil1...

 

[sylvanu]

Bonjour BenHarber,
.ListRows.Count vous donnera le N° de la dernière ligne de votre tableau.

Ensuite, simple question, quel intérêt ?
Puisque le propre d'un tableau structuré est d'être indépendant de là où il se trouve, une cellule se référence par sa ligne et sa colonne au sein du tableau.

 

[JHA]

Bonjour à tous

Pour les 26 premières colonnes, tu peux essayer la fonction car()
soit =car(64+le résultat de ton code VBA)

JHA

 

[JHA]

Bonjour à tous,

Autrement, trouvé une fonction personnalisée sur le forum

Retrouver la lettre d'une colonne avec son numéro

Comment puis je retrouver la lettre d'une colonne si je connais le numéro ? Exemple: 7, j'aimerais qu'il me donne la valeur 'G' Merci ;)

www.excel-downloads.com

 

[chris]

RE

Ce fil est une véritable chambre d'echos...

 

[BenHarber]

Bonjour à tous,
Merci pour la rapidité de vos réponses 👍
@chris : je note ton conseil de codif + ta réponse me convient bien puisque la feuille ne s'étend pas au-delà de la col. AA : MERCI !
@sylvanu : la feuille sur laquelle je travaille (et dont le fichier ne m'appartient pas...) contient PLUSIEURS TABLEAUX STRUCTURES 😱 : j'opère un traitement en boucle sur chacun d'eux, traitement pour lequel j'ai besoin de connaître la lettre de la colonne de fin du tableau.
@JHA : merci pour le lien 😉