Classe Style (Excel VBA)

Cet objet représente la description d'un style pour une plage.

Les procédures principales de la classe Style sont Delete et Styles.Add

Set

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

Dim sty as Style
Set sty = ActiveCell.Style

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Style : DisplayFormat.Style, Range.Style, Slicer.Style, Styles.Item, Styles.Add et Workbook.Styles

For Each

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

Dim sty As Style
For Each sty In Application.Styles
	
Next sty

Méthodes

Les méthodes principales de la classe Style sont

Delete - Cette méthode supprime l'objet.

ActiveCell.Style.Delete

Styles.Add - Cette méthode crée un nouveau style et l'ajoute à la liste des styles disponibles pour le classeur actif.

Dim strName As String: strName = 
Dim sty As Style
Set sty = ActiveWorkbook.Styles.Add(Name:=strName)

Autre Méthodes

Styles.Merge - Cette méthode fusionne les styles issus d'un autre classeur dans la collection Styles.

Propriétés

AddIndent Cette propriété renvoie ou définit une valeur de type Boolean qui indique si le texte est automatiquement mis en retrait lorsque l’alignement de texte dans une cellule est défini sur une distribution égale à l’horizontal ou à la verticale.

ActiveCell.Style.AddIndent = True

Borders Renvoie une collection Borders qui représente les bordures d’un style ou d’une plage de cellules (y compris une plage définie dans le cadre d’un format conditionnel).

Dim brdsBorders As Borders
Set brdsBorders = ActiveCell.Style.Borders

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 = ActiveCell.Style.BuiltIn

Font Renvoie un objet font qui représente la police de l’objet spécifié.

Dim fntFont As Font
Set fntFont = ActiveCell.Style.Font

FormulaHidden Cette propriété renvoie ou définit une valeur de type Boolean qui indique si la formule sera masquée avec une feuille de calcul protégée.

ActiveCell.Style.FormulaHidden = True

HorizontalAlignment Cette propriété renvoie ou définit une valeur XlHAlign qui représente l’alignement horizontal de l’objet spécifié.

ActiveCell.Style.HorizontalAlignment = xlHAlignCenter

IncludeAlignment Cette propriété a la valeur true si le style comprend les propriétés AddIndent, HorizontalAlignment, VerticalAlignment, WrapText, IndentLevelet orientation de l’objet style . Boolean (en lecture/écriture).

ActiveCell.Style.IncludeAlignment = True

IncludeBorder Cette propriété a la valeur true si le style comprend les propriétés Color, ColorIndex, LineStyleet Weight de l’objet Border . Boolean (en lecture/écriture).

ActiveCell.Style.IncludeBorder = True

IncludeFont True si le style comprend les propriétés de police Background, Bold, Color, ColorIndex, FontStyle, Italic, Name, Size, Strikethrough, Subscript, Superscript et Underline. Boolean (en lecture/écriture).

ActiveCell.Style.IncludeFont = True

IncludeNumber Cette propriété a la valeur True si le style comprend la propriété NumberFormat. Boolean (en lecture/écriture).

ActiveCell.Style.IncludeNumber = True

IncludePatterns True si le style comprend les propriétés Color, ColorIndex, InvertIfNegative, pattern, PatternColoret PatternColorIndex, de l’objet Interior . Boolean (en lecture/écriture).

ActiveCell.Style.IncludePatterns = True

IncludeProtection True si le style comprend les propriétés de protection FormulaHidden et Locked. Boolean (en lecture/écriture).

ActiveCell.Style.IncludeProtection = True

IndentLevel Cette propriété renvoie ou définit une valeur de type Long qui représente le niveau de retrait pour le style.

ActiveCell.Style.IndentLevel =

Interior Renvoie un objet Interior qui représente l’intérieur de l’objet spécifié.

Dim intInterior As Interior
Set intInterior = ActiveCell.Style.Interior

Locked Cette propriété renvoie ou définit une valeur de type Boolean qui indique si l'objet est verrouillé.

ActiveCell.Style.Locked = True

MergeCells Cette propriété a la valeur True si le style contient des cellules fusionnées. Variant en lecture/écriture.

ActiveCell.Style.MergeCells = True

Name Renvoie une valeur de type String qui représente le nom de l'objet.

Dim strName As String
strName = ActiveCell.Style.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 = ActiveCell.Style.NameLocal

NumberFormat Cette propriété renvoie ou définit une valeur de type String qui représente le code du format de l'objet.

ActiveCell.Style.NumberFormat =

NumberFormatLocal Cette propriété renvoie ou définit une valeur de type String qui représente le code du format d'un objet sous la forme d'une chaîne dans la langue de l'utilisateur.

ActiveCell.Style.NumberFormatLocal =

Orientation Cette propriété renvoie ou définit une valeur XlOrientation qui représente l’orientation du texte.

ActiveCell.Style.Orientation = xlDownward

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

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

ReadingOrder Renvoie ou définit l’ordre de lecture pour l’objet spécifié. Il peut s’agir de l’une des constantes XlReadingOrder suivantes: xlRTL (de droite à gauche), xlLTR (de gauche à droite) ou xlContext. Long (en lecture/écriture).

ActiveCell.Style.ReadingOrder =

ShrinkToFit Cette propriété renvoie ou définit une valeur Boolean qui indique si le texte s'ajuste automatiquement à la largeur de colonne disponible.

ActiveCell.Style.ShrinkToFit = True

Value Cette propriété renvoie une valeur de type String qui représente le nom du style spécifié.

Dim strValue As String
strValue = ActiveCell.Style.Value

VerticalAlignment Cette propriété renvoie ou définit une valeur XlVAlign qui représente l’alignement vertical de l’objet spécifié.

ActiveCell.Style.VerticalAlignment = xlVAlignBottom

WrapText Cette propriété renvoie ou définit une valeur de type Boolean qui indique si Microsoft Excel renvoie le texte à la ligne dans l'objet.

ActiveCell.Style.WrapText = True

Styles.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

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

Dim styItem As Style
Set styItem = ActiveWorkbook.Styles(Index:=1)

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

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