Objet Bordures (Excel)

Collection de quatre objets Border qui représentent les quatre bordures d’un objet Range, Style ou FormatCondition .

Remarques

Utilisez la propriété Borders pour renvoyer la collection Borders contenant les quatre bordures. Vous pouvez appliquer différentes bordures de chaque côté d’une cellule ou d’une plage. Pour plus d’informations sur l’application de bordures à une plage de cellules, voir Propriété Range.Borders .

Avec les objets Range, Style et FormatCondition , vous pouvez définir des propriétés de bordure pour une bordure individuelle. D’autres objets bordés, tels que les barres d’erreur et les lignes de série, ont une bordure qui est traitée comme une seule entité, quel que soit le nombre de côtés qu’elle a. Pour ces objets, vous devez retourner et définir des propriétés pour toute la bordure en tant qu’unité. Pour plus d'informations, voir l'objet Border.

Exemples

L'exemple suivant montre comment ajouter une bordure double à la cellule A1 de la feuille de calcul 1.

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

Utilisez Bordures (index), où index identifie la bordure, pour renvoyer un seul objet Border . Les valeurs valides pour index sont déterminées par l’objet parent de la collection Borders . Pour Range.Borders et Style.Borders, index peut être l’une des constantes XlBordersIndex suivantes : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal ou xlInsideVertical. Pour FormatCondition.Borders, utilisez xlLeft, xlRight, xlTop ou xlBottom.

L'exemple suivant montre comment affecter la couleur rouge à la bordure inférieure des cellules A1:G1.

Worksheets("Sheet1").Range("A1:G1"). _ 
 Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

L’exemple suivant génère une fine bordure autour de toutes les cellules de la plage.

Dim rng As Range: Set rng = ws.Range("B6", "D8")
        
With rng.Borders
   .LineStyle = xlContinuous
   .Weight = xlThin
End With

L’exemple suivant modifie uniquement les bordures de cellule internes de la plage.

Dim rngInner As Range: Set rngInner = ws.Range("B2", "D4")
        
With rngInner.Borders(xlInsideHorizontal)
  .LineStyle = xlContinuous
  .Weight = xlThin
End With

With rngInner.Borders(xlInsideVertical)
  .LineStyle = xlContinuous
  .Weight = xlThin
End With

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

  • Dernière mise à jour :