Classe TableStyle (Excel VBA)

La classe TableStyle représente un seul style applicable à un tableau ou un segment.

Les procédures principales de la classe TableStyle sont Delete et TableStyles.Add

Set

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

Dim tblsty as TableStyle
Set tblsty = ActiveWorkbook.DefaultPivotTableStyle

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TableStyle : ListObject.TableStyle, Duplicate, TableStyles.Item, TableStyles.Add, Workbook.DefaultPivotTableStyle, Workbook.DefaultTableStyle, Workbook.DefaultSlicerStyle et Workbook.TableStyles

For Each

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

Dim tblstyDefaultSlicerStyle As TableStyle
For Each tblstyDefaultSlicerStyle In Application.DefaultSlicerStyle
	
Next tblstyDefaultSlicerStyle

Méthodes

Les méthodes principales de la classe TableStyle sont

Delete - Cette méthode supprime l'objet TableStyle.

ActiveWorkbook.DefaultPivotTableStyle.Delete

TableStyles.Add - Crée un nouvel objet TableStyle et l’ajoute à la collection.

Dim strTableStyleName As String: strTableStyleName = 
Dim tblsty As TableStyle
Set tblsty = ActiveWorkbook.TableStyles.Add(TableStyleName:=strTableStyleName)

Autre Méthodes

Duplicate - Cette méthode duplique l'objet TableStyle et renvoie une référence à la nouvelle copie.

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

Propriétés

BuiltIn Cette propriété a la valeur True si le style est un style prédéfini. Boolean (en lecture seule).

Dim booBuiltIn As Boolean
booBuiltIn = ActiveWorkbook.DefaultPivotTableStyle.BuiltIn

Name Renvoie le nom de l'objet. En lecture seule chaîne.

Dim strName As String
strName = ActiveWorkbook.DefaultPivotTableStyle.Name

NameLocal Cette propriété renvoie ou définit le nom de l’objet dans la langue de l’utilisateur. Type de données String en lecture seule.

Dim strNameLocal As String
strNameLocal = ActiveWorkbook.DefaultPivotTableStyle.NameLocal

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

Dim objParent As Object
Set objParent = ActiveWorkbook.DefaultPivotTableStyle.Parent

ShowAsAvailablePivotTableStyle Définit ou renvoie si un style est affiché dans la Galerie des styles de tableau croisé dynamique. Boolean (en lecture/écriture).

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailablePivotTableStyle = True

ShowAsAvailableSlicerStyle Cette propriété renvoie ou définit si le style de tableau spécifié est affiché comme disponible dans la Galerie de styles de Slicer. Lecture-écriture.

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableSlicerStyle = True

ShowAsAvailableTableStyle Renvoie ou définit le style d'un tableau qui apparaît comme disponible dans la galerie des styles de tableau. Boolean (en lecture/écriture).

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTableStyle = True

ShowAsAvailableTimelineStyle Cette propriété renvoie ou définit si le style de tableau spécifié est affiché comme disponible dans la Galerie styles de chronologie. Boolean (en lecture/écriture).

ActiveWorkbook.DefaultPivotTableStyle.ShowAsAvailableTimelineStyle = True

TableStyleElements Renvoie l’objet TableStyleElements, . En lecture seule.

Dim tsesTableStyleElements As TableStyleElements
Set tsesTableStyleElements = ActiveWorkbook.DefaultPivotTableStyle.TableStyleElements

TableStyles.Count Renvoie le nombre d'objets dans la collection. En lecture seule longue.

Dim lngCount As Long
lngCount = ActiveWorkbook.TableStyles.Count

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

Dim objParent As Object
Set objParent = ActiveWorkbook.TableStyles.Parent