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

 

[TooFatBoy]

range("[Tbl_Datas").columns.count

Même sans le crochet, ça ne donnera jamais le numéro de colonne, par rapport à la feuille, de la dernière colonne du TS (enfin, c'est ce que j'ai compris qu'il voulait), ça donnera juste le nombre de colonnes du TS, me semble-t-il.

 

[patricktoulon]

après
on constate quoi et c'est ça qui est drôle en fait
si je veux le columns.count ou toute autre propriété d'ailleurs
en restant en range on les a
msgbox range("Tbl_Datas [#Etat]").cells(4) '4 eme cellule de la colonne "Etat"


msgbox range("Tbl_Datas [#Etat]").column &"eme colonne de la feuille"
address de la ligne que j'ajoute

msgbox range("tbl_datas").listobject.listcolumns..add.range.address

 

[TooFatBoy]

range("Tbl_Datas [#Etat]").column

Waouh, mais c'est génial !!!

 

[patricktoulon]

re
ce qu'il faut retenir
l’accès
par le range ("blablabla").listobject'on peut travailler avec les membre de listobject(qui parfois est plus simple) listcolumns(.add)

pour determiner le range c'est tout simplement ".range" comme vous l'avez vu dans mon message précédent

exemple mon tableau structure fait 4 colonnes
j'ajoute une ligne et je met les valeurs en meme temps

with range("tbl_datas").listobject.listcolumns.add.range
.value=array("toto","titi","riri","loulou")
end with

après l’écriture avec évaluation [blabla[truc]] je sais pas je n'ai jamais essayé
mais suppose a juste titre que ajouter une evaluation ne vas pas dans le sens de l'optimisation

 

[TooFatBoy]

j'ajoute une ligne et je met les valeurs en meme temps

with range("tbl_datas").listobject.listcolumns.add.range
.value=array("toto","titi","riri","loulou")
end with

 

[patricktoulon]

re
oui pardon @TooFatBoy je me suis emballé
c'est pas listcolumns mais listrows
création et instruction de la ligne en même temps

With Range("tbl_datas").ListObject.ListRows.Add.Range
.Value = Array("toto", "titi", "riri", "loulou")
End With

 

[Staple1600]

Bonsoir le fil,

Si j'étais moi, j'utiliserai DataBodyRange

Sub Test()
DerCol_LO = ActiveSheet.ListObjects(1).DataBodyRange.Columns.Count
MsgBox DerCol_LO
End Sub

Ca fait le job, itoo, non ?

 

[TooFatBoy]

Vous donnez tous la même réponse : le nombre de colonnes du TS au lieu du "numéro" de colonne par rapport à la feuille.
Certes, dans ce cas particulier ça fonctionne, mais s'il déplace son tableau, ne serait-ce que d'une seule colonne vers la droite... c'est mort !

 

[Staple1600]

Bonsoir @TooFatBoy

Je me suis basé sur ce que j'ai lu dans le 1er message

En l'occurrence il s'agit de la dernière colonne du tableau dans le fichier joint si dessous

Si il s'agit d'un tableau structuré, il n'y pas de colonnes disjointes
Et à mon sens, en comptant les N colonnes appartenant à ce tableau, on obtient forcément le numéro de colonne de la dernière colonne du tableau

NB: Je n'ai ouvert aucune PJ du fil.
J'ai testé sur un ListObject que j'ai créé pour l'occasion.

 

[patricktoulon]

re

Sub test()
    With Range("tableau1").ListObject

        derligtable = .ListRows.Count
        dercoltable = .ListColumns.Count
        derligfeuille = .ListRows(derligtable).Range.Row
        dercolfeuille = .ListColumns(dercoltable).Range.Column

        t = "il ya dans " & .Name & vbCrLf & derligtable & " lignes " & _
            vbCrLf & dercoltable & " colonnes" & vbCrLf & _
            "il se termine en colonne " & dercolfeuille & " et ligne " & derligfeuille & " de la feuille" & vbCrLf & _
            "l'entête n'est pas compris dedans "

        MsgBox t

    End With
End Sub