Classe ListColumn (Excel VBA)

Cet objet représente une colonne dans un tableau.

Les procédures principales de la classe ListColumn sont Delete et ListColumns.Add

Set

Pour utiliser une variable de classe ListColumn, elle doit d'abord être instanciée, par exemple

Dim lstcol as ListColumn
Set lstcol = ActiveCell.ListObject.ListColumns(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ListColumn : ListColumns.Item, ListColumns.Add et ListObject.ListColumns

For Each

Voici un exemple de traitement des éléments ListColumn dans une collection

Dim lstcol As ListColumn
For Each lstcol In ActiveCell.ListObject.ListColumns
	
Next lstcol

Méthodes

Les méthodes principales de la classe ListColumn sont

Delete - Cette méthode supprime la colonne de données dans la liste.

ActiveCell.ListObject.ListColumns(1).Delete

ListColumns.Add - Cette méthode ajoute une colonne à l'objet Liste.

Dim lstcol As ListColumn
Set lstcol = ActiveCell.ListObject.ListColumns.Add()

Propriétés

DataBodyRange Renvoie un objet Range qui représente la taille de la partie données d'une colonne. En lecture seule.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.ListColumns(1).DataBodyRange

Index Renvoie une valeur de type long qui représente le numéro d'index de l'objet ListColumn au sein de la collection ListColumns .

Dim lngIndex As Long
lngIndex = ActiveCell.ListObject.ListColumns(1).Index

Name Cette propriété renvoie ou définit une valeur de type String qui représente la colonne de liste.

ActiveCell.ListObject.ListColumns(1).Name =

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.ListObject.ListColumns(1).Parent

Range Renvoie un objet Range qui représente la plage à laquelle s'applique l'objet de liste spécifié.

Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.ListColumns(1).Range

Total Renvoie la ligne Total d'un objet ListColumn. En lecture seule.

Dim rngTotal As Range
Set rngTotal = ActiveCell.ListObject.ListColumns(1).Total

TotalsCalculation Détermine le type de calcul dans la ligne totaux de la colonne de liste en fonction de la valeur de l'énumération XlTotalsCalculation . Lecture-écriture.

ActiveCell.ListObject.ListColumns(1).TotalsCalculation = xlTotalsCalculationAverage

XPath Renvoie un objet XPath qui représente le XPath de l’élément mappé à l’objet Range spécifié. Le contexte de la plage détermine si l’action réussit ou renvoie un objet vide. En lecture seule.

Dim xphXPath As XPath
Set xphXPath = ActiveCell.ListObject.ListColumns(1).XPath

ListColumns.Count Cette propriété renvoie une valeur Integer qui représente le nombre d'objets de la collection.

Dim lngCount As Long
lngCount = ActiveCell.ListObject.ListColumns.Count

ListColumns.Item Cette méthode renvoie un seul objet d'une collection.

Dim lstcolItem As ListColumn
Set lstcolItem = ActiveCell.ListObject.ListColumns(Index:=1)

ListColumns.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.ListObject.ListColumns.Parent