Classe ListObject (Excel VBA)

La classe ListObject représente une liste d’objets de la collection ListObjects.

Les procédures principales de la classe ListObject sont Delete et ListObjects.Add

Set

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

Dim lstobj as ListObject
Set lstobj = ActiveCell.ListObject

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ListObject : ListObjects.Item, ListObjects.Add, QueryTable.ListObject, Range.ListObject, SlicerCache.ListObject, TableObject.ListObject et Worksheet.ListObjects

For Each

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

Dim lstobj As ListObject
For Each lstobj In Application.ListObjects
	
Next lstobj

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Display/Show with its procedures DisplayName, DisplayRightToLeft, ShowHeaders et ShowTotals
Row with its procedures HeaderRowRange, InsertRowRange, ListRows et TotalsRowRange

Méthodes

Les méthodes principales de la classe ListObject sont

Delete - Cette méthode supprime l’objet ListObject et efface les données des cellules dans la feuille de calcul.

ActiveCell.ListObject.Delete

ListObjects.Add - Crée un objet de liste.

Dim lstobj As ListObject
Set lstobj = ActiveSheet.ListObjects.Add

Autre Méthodes

ExportToVisio - Exporte un objet ListObject dans Visio.

Publish - Publie l'objet ListObject sur un serveur qui exécute Microsoft SharePoint Foundation.

Refresh - Cette méthode récupère les données et le schéma actifs pour la liste sur le serveur exécutant Microsoft SharePoint Foundation. Elle s’utilise uniquement avec des listes liées à un site SharePoint. Si le site SharePoint n'est pas disponible, l'appel de cette méthode renvoie une erreur.

Resize - La méthode Resize permet de redimensionner un objet ListObject sur une nouvelle plage. Aucune cellule n’est insérée ni supprimée.

Unlink - Cette méthode supprime la liaison entre une liste et un site Microsoft SharePoint Foundation. Renvoie la valeur Nothing.

Unlist - Cette méthode supprime la fonctionnalité de liste d’un objet ListObject. Après avoir utilisé cette méthode, la plage de cellules qui composent la liste sera une plage de données normale.

Propriétés

Active Cette propriété renvoie une valeur de type Boolean qui indique si un objet ListObject d’une feuille de calcul est actif (c’est-à-dire, si la cellule active se trouve à l’intérieur de la plage de l’objet ListObject ). Boolean (en lecture seule).

Dim booActive As Boolean
booActive = ActiveCell.ListObject.Active

AlternativeText Renvoie ou définit la chaîne de texte descriptive (de remplacement) pour la table spécifiée. Lecture-écriture.

ActiveCell.ListObject.AlternativeText =

AutoFilter Filtre un tableau à l'aide de la fonctionnalité de filtre automatique. En lecture seule.

Dim afrAutoFilter As AutoFilter
Set afrAutoFilter = ActiveCell.ListObject.AutoFilter

Comment Cette propriété renvoie ou définit le commentaire associé à l'objet liste. String en lecture/écriture.

ActiveCell.ListObject.Comment =

DataBodyRange Cette propriété renvoie un objet Range qui représente la plage de valeurs, à l’exception de la ligne d’en-tête dans une table. En lecture seule.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.DataBodyRange

ListColumns Renvoie une collection ListColumns qui représente toutes les colonnes d'un objet ListObject . En lecture seule.

Dim lcsListColumns As ListColumns
Set lcsListColumns = ActiveCell.ListObject.ListColumns

Name Cette propriété renvoie ou définit une valeur de type String qui représente le nom de l'objet ListObject .

ActiveCell.ListObject.Name =

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

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

QueryTable Renvoie l'objet QueryTable qui fournit un lien vers l'objet ListObject vers le serveur de liste. En lecture seule.

Dim qrytblQueryTable As QueryTable
Set qrytblQueryTable = ActiveCell.ListObject.QueryTable

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

Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.Range

SharePointURL Renvoie une valeur de type String qui représente l'URL de la liste SharePoint pour un objet ListObject donné. Type de données String en lecture seule.

Dim strSharePointURL As String
strSharePointURL = ActiveCell.ListObject.SharePointURL

ShowAutoFilter Cette propriété renvoie un objet Boolean pour indiquer si le filtre automatique doit être affiché. Boolean (en lecture/écriture).

ActiveCell.ListObject.ShowAutoFilter = True

ShowAutoFilterDropDown True lorsque la liste déroulante de filtre automatique pour l'objet ListObject s'affiche. Boolean (en lecture/écriture).

ActiveCell.ListObject.ShowAutoFilterDropDown = True

ShowTableStyleColumnStripes Renvoie ou définit si le style de tableau Colonnes impaires est utilisé pour l'objet ListObject spécifié. Boolean (en lecture/écriture).

ActiveCell.ListObject.ShowTableStyleColumnStripes = True

ShowTableStyleFirstColumn Renvoie ou définit si la première colonne doit être mise en forme pour l'objet ListObject spécifié. Boolean (en lecture/écriture).

ActiveCell.ListObject.ShowTableStyleFirstColumn = True

ShowTableStyleLastColumn Renvoie ou définit si la dernière colonne doit être affichée pour l'objet ListObject spécifié. Boolean (en lecture/écriture).

ActiveCell.ListObject.ShowTableStyleLastColumn = True

ShowTableStyleRowStripes Renvoie ou définit si le style de tableau Lignes impaires est utilisé pour l'objet ListObject spécifié. Boolean (en lecture/écriture).

ActiveCell.ListObject.ShowTableStyleRowStripes = True

Slicers Renvoie une liste des segments de tableau associés à un objet ListObject. En lecture seule.

Dim slcsSlicers As Slicers
Set slcsSlicers = ActiveCell.ListObject.Slicers

Sort Obtient ou définit la colonne ou les colonnes du tri et l'ordre de tri de la collection ListObject .

Dim srtSort As Sort
Set srtSort = ActiveCell.ListObject.Sort

SourceType Renvoie une valeur XlListObjectSourceType qui représente la source actuelle de la liste.

Dim xloSourceType As XlListObjectSourceType
xloSourceType = ActiveCell.ListObject.SourceType

Summary Renvoie ou définit la description associée à la chaîne de texte de remplacement pour la table spécifiée. Lecture-écriture.

ActiveCell.ListObject.Summary =

TableObject Renvoie un objet TableObject . En lecture seule.

Dim totTableObject As TableObject
Set totTableObject = ActiveCell.ListObject.TableObject

TableStyle Récupère ou définit le style de tableau de l'objet ListObject spécifié. Variant en lecture/écriture.

ActiveCell.ListObject.TableStyle =

XmlMap Renvoie un objet XmlMap qui représente le mappage de schéma utilisé pour la table spécifiée. En lecture seule.

Dim xmlmpXmlMap As XmlMap
Set xmlmpXmlMap = ActiveCell.ListObject.XmlMap

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

Dim lngCount As Long
lngCount = ActiveSheet.ListObjects.Count

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

Dim lstobjItem As ListObject
Set lstobjItem = ActiveSheet.ListObjects(Index:=1)

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

Dim objParent As Object
Set objParent = ActiveSheet.ListObjects.Parent