Classe ListColumn - une colonne dans un tableau (Excel VBA)
Cet objet représente une colonne dans un tableau. 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)
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
DataBodyRange
Renvoie un objet Range qui représente la taille de la partie données d'une colonne. En lecture seule.
L'objet renvoyé exclut les cellules En-tête et Totaux.
Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.ListColumns(1).DataBodyRange
Delete
Cette méthode supprime la colonne de données dans la liste.
Cette méthode ne supprime pas la colonne de la feuille. Si la liste est liée à un site Microsoft SharePoint Foundation, il est impossible de supprimer la colonne du serveur et une erreur se produit.
ActiveCell.ListObject.ListColumns(1).Delete
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.
Elle s'utilise également comme nom complet de la colonne de liste. Ce nom doit être unique dans la liste.
ActiveCell.ListObject.ListColumns(1).Name =
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. Ici on trouve valeurs possible pour
La ligne totaux n'a pas besoin d'être visible pour définir cette propriété. Cette dernière ne possède pas de valeur par défaut. Excel peut modifier l'état de cette propriété à mesure que d'autres colonnes sont ajoutées ou supprimées.
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.
La propriété XPath est valide lorsque la plage qu’elle contient remplit les conditions suivantes:
Dim xphXPath As XPath
Set xphXPath = ActiveCell.ListObject.ListColumns(1).XPath