✅ Bordures de cellule VBA

Table des matières

Formatage des bordures

Ce didacticiel montrera comment ajuster les paramètres de bordure de cellule dans VBA.

Formatage des bordures

Bordure supérieure - Double ligne

Regardons d'abord un exemple de la façon de définir une bordure supérieure bleue, épaisse et doublée à la cellule B3 sur Sheet1:

123456789

Sous-exempleSetBorder()Avec des feuilles de calcul("Feuille1").Range("B3").Borders(xlEdgeTop).LigneStyle = xlDouble.Poids = xlÉpais.ColorIndex = 5Terminer parFin du sous-marin

Notez que nous utilisons une instruction With pour simplifier notre codage.

Nous accédons à la bordure supérieure avec .Borders(xlEdgeTop).

Autres bordures de cellules

Au lieu de cela, vous pouvez accéder à d'autres bordures, y compris les diagonales :

123456

Feuilles de calcul("Feuille1").Range("B2").Borders(xlEdgeTop).Couleur = RVB(128, 0, 0)Feuilles de calcul("Feuille1").Range("B2").Borders(xlEdgeRight).Couleur = RVB(0, 255, 0)Feuilles de calcul("Feuille1").Plage("B2").Borders(xlEdgeBottom).Couleur = RVB(0, 0, 128)Feuilles de calcul("Feuille1").Range("B2").Borders(xlEdgeLeft).Couleur = RVB(255, 0, 0)Feuilles de calcul("Feuille1").Range("B2").Borders(xlDiagonalDown).Couleur = RVB(0, 0, 0)Feuilles de calcul("Feuille1").Range("B2").Borders(xlDiagonalUp).Couleur = RVB(0, 0, 0)

Frontières intérieures

Vous pouvez également ajuster les bordures horizontales (xlInsideHorizontal) et verticales (xlInsideVertical) pour toutes les cellules d'une plage :

12345

Avec des feuilles de calcul("Feuille1").Plage("B2:C6").Borders(xlInsideHorizontal).LineStyle = xlDashDotDot.Poids = xlMoyen.ColorIndex = 3Terminer par

Style de ligne

La propriété LineStyle peut être modifiée en xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot et xlLineStyleNone.

La propriété Weight peut être xlHariline, xlThin, xlMedium et xlThick. Vous aurez ce résultat avec le code ci-dessous :

12345678

Feuilles de calcul("Feuille1").Range("C3").Borders(xlEdgeTop).Poids = xlHairlineFeuilles de calcul("Feuille1").Plage("C3").Borders(xlEdgeBottom).Poids = xlHairlineFeuilles de calcul("Feuille1").Plage("D3").Borders(xlEdgeTop).Poids = xlThinFeuilles de calcul("Feuille1").Plage("D3").Borders(xlEdgeBottom).Poids = xlThinWorksheets("Sheet1").Range("E3").Borders(xlEdgeTop).Weight = xlMediumWorksheets("Sheet1").Range("E3").Borders(xlEdgeBottom).Weight = xlMediumFeuilles de calcul("Feuille1").Range("F3").Borders(xlEdgeTop).Weight = xlThickWorksheets("Sheet1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

Les couleurs de bordure peuvent être définies comme ColorIndex ou Color (RVB, numéro de série ou vbColor). Voir plus d'informations sur les paramètres de couleur ici.

Vous pouvez également ajouter des bordures autour d'une plage avec une commande sur une ligne :