Discussion :

[PLH81]

Bonjour,

Un tableau structuré est nommé Txl_TabStruct (c'est pour l'exemple hein...) avec trois colonnes ayant pour entête Nom, Prénom, Âge

Y a t-il moyen de faire quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Ecrire_dans_le_Txl()
 
dim n as integer
 
n = 3
with [Txl_TabStruct]
          .cells(n,[@Nom]) = "Tartagueu"
end with
 
n=5
with [Txl_TabStruct]
        .cells(n,[@Prénom]) = "Alain"
End sub

Bref, aller à une cellule précise en nommant l'entête de la colonne.

Merci.

PLH81

[Philippe Tulliez]

Bonjour,
Exemple de l'écriture sur la ligne 3 de la colonne dont l'en-tête est "Client" du tableau de la feuille active (ici le tableau est seul)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub t()
  Dim oList As ListObject
  Set oList = ActiveSheet.ListObjects(1)
  With oList
  .DataBodyRange.Cells(3, .ListColumns("Client").Index).Value = "Ma Petite Entreprise"
  End With
  Set oList = Nothing
End Sub

[PLH81]

Bonsoir Mr Tulliez,

Alors ça, je vais le graver en rouge et noir.

Question subsidiare :
J'ai vu qu'il n'était pas nécessaire de déclarer le tableau structurée en ListObject
Qu'en pensez-vous ?

PLH81

[Patrice740]

Bonjour,

J'ai vu qu'il n'était pas nécessaire de déclarer le tableau structurée en ListObject

C'est pas qu'il n'est pas nécessaire de déclarer le tableau, c'est qu'on peut référencer le tableau structuré directement par son nom, c'est à dire qu'on peut remplacer

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set Tableau = ThisWorkbook.Worksheets("Base").ListObjects("Base_donnees").Range
With Tableau
...

Par

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With [Base_donnees]
...

[PLH81]

Bonjour Patrice,

ok. De directement appeler par les [ ] simplifie le codage, mais ensuite, est ce qu'on peut faire exactement les mêmes choses, y a-t-il des restrictions ou des inconvénients à déclarer ainsi [ ] ?

Cordialement

PLH81

[Philippe Tulliez]

Bonjour,

est ce qu'on peut faire exactement les mêmes choses, y a-t-il des restrictions ou des inconvénients à déclarer ainsi [ ] ?

Aucune restriction. Lorsque l'on déclare une variable objet (Workbook, Worksheet, Range, ListObject, PivotTable, etc.), celle-ci hérite des méthodes et des propriétés de cet objet.

[EDIT]
Donc dans cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oList As ListObject
Set oList = shtDb.ListObjects(1)
oList.Name = "MonTableau"

L'instruction de la dernière ligne donne le même résultat que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shtDb.ListObjects(1).Name = "MonTableau"