Trouver l'index d'une colonne

[TCHIS]

Bonjour à tus et à toutes
Excusez moi vous saurez comment trouvé l'index d'une colonne ?
En l'occurrence il s'agit de la dernière colonne du tableau dans le fichier joint si dessous

 

[FlamXYZ]

Bonjour,
la formule colonne donne le numero de la colonnes de la cellule que tu auras choisie.

Sinon via vba pour connaitre l'index de la derniere colonne tu peux utiliser le code x=range("A1").End(xlToRight).ActiveCell.Column

 

[sylvanu]

Bonjour Tchis, Flam,
En VBA on peut faire :

DerCol = Cells(1, Columns.Count).End(xlToLeft).Column

Mais s'agissant d'un tableau structuré, il vaut mieux faire :

NbCol = [Tbl_Datas].ListObject.ListColumns.Count

qui permet de s'affranchir des numéros de colonnes.
( Quel que soit l'emplacement du tableau, NbCol sera toujours le même puisque référencé au tableau lui même )
Ensuite les manipulations sont plus simples :

Lire cellule:
ValCell = [Tbl_Datas].Item(x,NbCol)
Ecrire cellule :
[Tbl_Datas].Item(Ligne,Colonne) = Valeur

x étant le numéro de ligne à lire.
Ou encore mieux, on ne s'occupe pas de savoir où est la colonne :

Lire:
ValCell = [Tbl_Datas[Commentaires22]].Item(x)
Ecrire:
[Tbl_Datas[Commentaires22]].Item(x) = Valeur

tout est référencé par rapport au nom de la colonne où qu'elle soit sans le tableau. Si une colonne est ajouté, ou le tableau déplacé, il est inutile de reprendre le code. De plus celui ci est plus visible.

 

[TooFatBoy]

Bonjour,

Je t'ai déjà répondu là-bas :

Microsoft 365 - Index de Cellule

Bonjour à tous et à toutes Dans le cadre d'un projet j'ai appliqué un code VBA qui coince juste parce qu'il me faut l'index de ma dernière cellule non vide de mon tableau source. En conclusion pourriez-vous m'aider à ressortir l'index de ma dernière cellule non vide de ma colonne A. N.B : Voir...

excel-downloads.com

 

[TooFatBoy]

En VBA on peut faire :

DerCol = Cells(1, Columns.Count).End(xlToLeft).Column

Mais s'agissant d'un tableau structuré, il vaut mieux faire :

NbCol = [Tbl_Datas].ListObject.ListColumns.Count

qui permet de s'affranchir des numéros de colonnes.
( Quel que soit l'emplacement du tableau, NbCol sera toujours le même puisque référencé au tableau lui même )

Pardon camarade, mais je crois que ça donne le nombre de colonnes du tableau structuré, et non "l'index", dans la feuille, de sa dernière colonne.

 

[sylvanu]

Re,
Exact, ça s'applique au fichier joint.
C'est pour ça qu'ensuite, je me suis attaché à donner les solutions sur des tableaux structurés, en lecture et écriture.

 

[TooFatBoy]

Exact, ça s'applique au fichier joint.

Ah, OK. Désolé, je m'étais basé uniquement sur la question car je n'ai pas ouvert le fichier.

 

[sylvanu]

Re,
@TCHIS, pour approfondir le traitement sur tableaux structurés, essayez cette macro dans un module classique :

Sub Essai()
DernièreColonne = [Tbl_Datas].ListObject.ListColumns.Count
DernièreLigne = [Tbl_Datas].ListObject.ListRows.Count
' Lire la 4eme valeur de la colonne Etat
ValCell = [Tbl_Datas[Etat]].Item(4)
' Ecrire première cellule de la colonne Commentaires22
[Tbl_Datas[Commentaires22]].Item(1) = "Commentaire"
' Ecrire cellule dernière ligne, dernière colonne
[Tbl_Datas].Item(DernièreLigne, DernièreColonne) = "FIN"
' Relire même cellule
ValCellFin = [Tbl_Datas].Item(DernièreLigne, DernièreColonne)
End Sub

Vous obtiendrez :

 

[patricktoulon]

re
Bonjour bonjour
l'index de la dernière colonne d'un tableau structuré
ben c'est simple et rigolo on passe par le range

msgbox "l'index de la dernière colonne du tableau est " & range("[Tbl_Datas").columns.count

il est pas possible ce toulonnais

au revoir au revoir

d'accords !! je sort

 

[patricktoulon]

et savez vous pourquoi il est préférable de passer par le range pour un TS
quel est l’intérêt le savez vous ?

 

[sylvanu]

Re,
Je ne sais pas. Mais ne serait ce pas plutôt :

Range("Tbl_Datas").Columns.Count

Avec les crochets, VBA ne reconnait pas l'objet.

 

[patricktoulon]

re
non ce n'est pas une histoire de crochet
en fait c'est très simple
supposons que j'ai 2 feuilles
je suis sur la feuille2
mon tableau structuré est sur la feuille1
je ne peux pas faire msgbox ListObjects("tbl_data").listcolumns.count
je suis obligé de préciser le parent devant "ListObjects"
car la collection listobjects est membre de worksheet ou sheets

tandis qu'avec range comme c'est un name et qu'il ne peut y en avoir qu'un
vba ne peut pas se tromper ou que l'on soit dans le classeur car les names ont pour parent l'application

c'est tout bête
et si malgré tout je veux travailler en lisobject ben c'est simple
with range("tbl_data").listobject
msgbox .listcolumns.count
end with

et oui ce qui est drole c'est que le membre "ListObject"(au singulier) est membre de range
ho oui c'est drole non

voila voila
au revoir au revoir

 

[sylvanu]

Re,

je suis obligé de préciser le parent devant "ListObjects"

Oui, mais vous n'avez pas à la préciser après, ce qui revient au même.
Donc on a le choix entre :
ListObjects("tbl_data").listcolumns.count
[Tbl_Datas].ListObject.ListColumns.Count

Perso, je trouve la seconde plus "lisible" car elle conserve la même syntaxe de "poupées russes" que les autres formules, par ex : [Tbl_Datas[Etat]].Item(4)

 

[TooFatBoy]

non ce n'est pas une histoire de crochet

Le monsieur te disait que ton code est moisi, à cause d'un crochet en trop.

 

[patricktoulon]

non c'est pas bon @sylvanu
ceci
ListObjects("tbl_data").listcolumns.count
ne peut fonctionner que si le tableau est dans la feuille active et encore j'en suis pas sur