Microsoft 365 écriture formule pour tableau structuré

[CortoXls]

Bonjour à tous

Je cherche à écrire une formule équivalente à celle-ci (je suis dans un tableau structuré qui va évoluer)
Lign étant la ligne active et TblMois le tableau sur la feuille active

Set CellCredit = Cells(Lign, 7)

je voudrai faire référence à la colonne par son nom "Recettes" et non par son N° mais je ne trouve pas la bonne formulation

j'ai essayé en vain cette formulation ainsi que toutes (ou presque) les variantes possibles y compris avec des crochets...

Set CellCredit = TblMois.Cells(Lign, ListColumns("Recettes"))

 

[vgendron]

Hello

Regardes ici, tu vas avoir les syntaxes

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

 

[CortoXls]

Hello

Regardes ici, tu vas avoir les syntaxes

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

Bonjour,
Merci pour le lien
Je viens de passer auparavant un temps infini à lire le site de P. Fauconnier...
Voilà ce que j'ai écrit mais ça ne fonctionne pas mieux je suis décalé de 7 lignes...

Set CellCredit = TblMois.ListColumns("Recettes").DataBodyRange.Rows(Lign)

 

[vgendron]

tu n'as visiblement pas (bien) lu le lien que je t'ai envoyé
il y a notament un tableau avec différentes syntaxes pour adresser, une ligne, une colonne, une cellule.

Set CellCredit = TblMois.ListColumns("Recettes").DataBodyRange(Lign)

 

[CortoXls]

tu n'as visiblement pas (bien) lu le lien que je t'ai envoyé
il y a notament un tableau avec différentes syntaxes pour adresser, une ligne, une colonne, une cellule.

Set CellCredit = TblMois.ListColumns("Recettes").DataBodyRange(Lign)

si bien sûr que j'ai lu ton lien et même mis en favori !

Par contre je suis décalé de 7 lignes, mon tableau démarrant à la ligne 7.
Cette fois-ci je ne parviens pas à redéfinir ma variable Lign...

Set Cellchange = ActiveCell             'la variable CellChange correspond à la cellule active
Lign = Cellchange.Row                   'la variable Lign correspond à la ligne de la cellule active

Je suppose que je dois intégrer DatabodyRange dans l'une ou l'autre déf.

 

[vgendron]

et si tu envoyais ton fichier...

on se rendrait sans doute compte que ton tableau n'est pas un tableau structuré...??

 

[CortoXls]

et si tu envoyais ton fichier...

on se rendrait sans doute compte que ton tableau n'est pas un tableau structuré...??

c'est bien un tableau structuré !

 

[TooFatBoy]

Bonjour,

Par contre je suis décalé de 7 lignes, mon tableau démarrant à la ligne 7.

L'avantage d'un TS, c'est qu'il peut être situé n'importe où, ça ne change pas le code VBA pour le remplir. 😉

 

[vgendron]

au hasard...

lign=lign-tblmois.range.row

 

[Dranreb]

Bonsoir.
Si Lign est un n° de ligne dans la feuille, le plus simple c'est peut être :

Set CellCrédit = [TblMois[Recettes]].Rows(Lign - [TblMois].Row + 1)

Mais si Lign vient d'un Target.Row il est peut être plus simple de prendre Intersect([TblMois[Recettes]], Target.EntireRow)

 

[TooFatBoy]

Il y a plusieurs syntaxes possibles.

Tu peux utiliser un truc du genre :

Range("NomTS").cells(NumLigneTS, NumColonneTS) = MaValeur

ou

Range("NomTS[NomColonneTS]")(NumLigneTS) = MaValeur

 

[Dranreb]

Le ListObject n'est pas connu de VBA. Mais vous pouvez le récupérer de la collection ListObjects :

Set LOt = ListObjects("TblMois")
Set CellCredit = LOt.ListColumns("Recettes").DatabodyRange.Rows(Lign - LOT.HeaderRowRange.Row)

 

[CortoXls]

Le ListObject n'est pas connu de VBA. Mais vous pouvez le récupérer de la collection ListObjects :

Set LOt = ListObjects("TblMois")
Set CellCredit = LOt.ListColumns("Recettes").DatabodyRange.Rows(Lign - LOT.HeaderRowRange.Row)

Merci à tous !
A partir de vos conseils, je fais désormais des TS car effectivement c'est bien plus facile lorsqu'on est au début d'un projet où tout peut changer (colonnes, lignes, emplacement du tableau...)