Classe Borders (Excel VBA)

Collection de quatre objets Border qui représentent les quatre bordures d'un objet Range ou style .

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

Dim brds as Borders
Set brds = ActiveCell.DisplayFormat.Borders

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Borders : AboveAverage.Borders, CellFormat.Borders, DisplayFormat.Borders, FormatCondition.Borders, Range.Borders, Style.Borders, TableStyleElement.Borders, Top10.Borders et UniqueValues.Borders.

For Each

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

Dim brd As Border
For Each brd In Application.Borders
	
Next brd

Color

Cette propriété renvoie ou définit la couleur principale de l'objet, comme l'indique la section des remarques dans le tableau suivant. Utilisez la fonction RGB pour créer une valeur de couleur. Variant en lecture/écriture.

ActiveCell.DisplayFormat.Borders.Color = RGB(0,0,255)'blue

ColorIndex

Cette propriété renvoie ou définit une valeur de type Variant qui représente la couleur des quatre bordures.

Cette propriété renvoie la valeur Null si les quatre bordures ne sont pas de la même couleur. La couleur est spécifiée sous la forme d'une valeur d'index dans la palette de couleurs en cours, ou comme une des constantes XlColorIndex : xlColorIndexAutomatic ou xlColorIndexNone.

ActiveCell.DisplayFormat.Borders.ColorIndex =

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 = ActiveCell.DisplayFormat.Borders.Count

Item

Renvoie un objet Border qui représente l'une des bordures d'une plage de cellules ou d'un style.

Item (Index)

Index: Il peut s'agir de l'une des constantes XlBordersIndex .

Dim brdItem As Border
Set brdItem = ActiveCell.DisplayFormat.Borders(Index:=xlEdgeBottom)

LineStyle

Cette propriété renvoie ou définit le style de trait pour la bordure. En lecture/écriture XlLineStyle, xlGray25, xlGray50, xlGray75ou xlAutomatic. Les valeurs de retour possibles sont xlContinuous - Trait continu, xlDash - En pointillés, xlDashDot - Alternance de tirets et de points, xlDashDotDot - Tiret suivi de deux points, xlDot - Trait avec points, xlDouble - Double trait, xlLineStyleNone - Aucun trait, xlSlantDashDot - Tirets inclinés.

ActiveCell.DisplayFormat.Borders.LineStyle = xlContinuous

ThemeColor

Renvoie ou définit la couleur du thème dans le jeu de couleurs appliquées qui est associé à l’objet spécifié. Variant en lecture/écriture.

Toute tentative d'accès à une couleur de thème pour un objet auquel aucun thème n'est appliqué provoquera une erreur de requête non valide à l'exécution.

ActiveCell.DisplayFormat.Borders.ThemeColor =

TintAndShade

Renvoie ou définit un Single qui éclaircit ou assombrit une couleur.

Vous pouvez entrer un nombre compris entre -1 (zones les plus sombres) et 1 (plus claires) pour la propriétéTintAndShade. Zéro (0) est neutre. Toute tentative de définition de cette propriété sur une valeur inférieure à -1 ou supérieure à +1 provoquera une erreur d'exécution et l'affichage du message « La valeur tapée est en dehors des limites ». Cette propriété fonctionne pour les couleurs de thème et les couleurs hors thème.

ActiveCell.DisplayFormat.Borders.TintAndShade =

Value

Synonyme de Borders. LineStyle.

ActiveCell.DisplayFormat.Borders.Value =

Weight

Cette propriété renvoie ou définit une valeur XlBorderWeight qui représente l'épaisseur de la bordure.

ActiveCell.DisplayFormat.Borders.Weight =