XL 2010 [RESOLU] Syntaxe Tableau Structuré (ListObject)

cathodique à dit:

Bonjour,

Je trouve des difficultés de syntaxe à utiliser avec les tableaux structurés.
Je fais comme ci-dessous :
Je déclare mon tableau structuré

VB:

Dim Tb As ListObject '(variable globale)

Ensuite dans UserForm_Initialize()

Code:

Set Tb = ThisWorkbook.Feuil1.ListObjects("TbA")

Ensuite pour transférer les données dans le tableau structure

Code:

Private Sub btValider_Click()
Dim Lig As ListRow

Set Lig = Tb.ListRows.Add
Lig.Range.Cells(1).Value = TextBox1
Ect…

Au lieu de cells(1), je voudrais mettre l’entête de colonne qui est "NoDossier".
Car les colonnes pourraient être permutées.

Merci par avance.

Cliquez pour agrandir...

patricktoulon à dit:

re
bon si c'est pour déterminer la colonne
je fait comme ça
je met 245 dans la nouvelle ligne en colonne "No_Dossier"

VB:

Sub test()
    Dim  tb As ListObject    '(variable globale)
    Set tb = ThisWorkbook.Sheets("Feuil1").ListObjects("TbA")
    tb.ListRows.Add
    With ThisWorkbook.Sheets("Feuil1").Range("tba[No_Dossier]"): .Cells(.Rows.Count) = 245: End With
End Sub

Cliquez pour agrandir...

cathodique à dit:

ReBonjour,

Désolé, j'ai pas mal de choses à regler, du coup je m'exprime mal.
Je n'ai encore testé ton code.
D'habitude je fais
Dim Lig As ListRow

Set Lig = Tb.ListRows.Add
Lig.Range.Cells(1).Value = TextBox1

Mais j'ai permuté des colonnes et là ça ne va plus.
Les données ne sont plus dans la bonne colonne.
Je sais qu'on peut utilisé le nom de la colonne (ou Entête pour moi c'est la même chose) mais je n'arrive pas à trouver la syntaxe correcte.

Est-ce plus clair ainsi.

Merci beaucoup.

Cliquez pour agrandir...

cathodique à dit:

Oui, mais là dans ton code au final
Set tb = ThisWorkbook.Sheets("Feuil1").ListObjects("TbA") ne sert que pour ajouter une ligne au tableau
plus que bas tu repars avec
With ThisWorkbook.Sheets("Feuil1").Range("tba[No_Dossier]")

Ne peut-on pas utiliser tb?

Cliquez pour agrandir...

Cousinhub à dit:

Bonjour,
Sinon, une autre syntaxe

VB:

Dim Tb As ListObject '(variable globale)
Dim Lig As ListRow
Dim I As Long
Set Tb = Feuil1.ListObjects("Tba")
Set Lig = Tb.ListRows.Add: I = Lig.Index
Tb.ListColumns("NoDossier").DataBodyRange(I) = 1

Bonne journée

Cliquez pour agrandir...