Objet Borders (Excel)

  • Article

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

Remarques

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

Vous ne pouvez définir les propriétés d’une bordure unique qu’avec les objets Range et Style. Les autres objets à bordure, par exemple les barres d'erreur et les lignes de série, ont une bordure qui est considérée comme étant une seule entité, quel que soit le nombre de côtés. Pour ces objets, vous devez renvoyer une valeur et définir des propriétés pour toute la bordure. 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 Borders (index), où index identifie la bordure, pour renvoyer un seul objet Border . Index peut être l’une des constantes XlBordersIndex suivantes : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal ou xlInsideVertical.

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 bordure mince 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 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.