Partager via


Propriété CellFormat.Borders (Excel)

Renvoie ou définit une collection Borders qui représente les critères de recherche en fonction du format de bordure de la cellule.

Syntaxe

expression. Frontières

Expression Variable qui représente un objet CellFormat .

Exemple

Cet exemple montre comment définir les critères de recherche pour identifier les bordures de cellules qui possèdent un bord inférieur de style continu et épais, comment créer une cellule présentant cette condition, comment trouver cette cellule et avertir l'utilisateur.

Remarque

La couleur par défaut de la bordure est utilisée dans cet exemple ; par conséquent, l’index de couleur n’est pas modifié.

Sub SearchCellFormat() 
 
 ' Set the search criteria for the border of the cell format. 
 With Application.FindFormat.Borders(xlEdgeBottom) 
 .LineStyle = xlContinuous 
 .Weight = xlThick 
 End With 
 
 ' Create a continuous thick bottom-edge border for cell A5. 
 Range("A5").Select 
 With Selection.Borders(xlEdgeBottom) 
 .LineStyle = xlContinuous 
 .Weight = xlThick 
 End With 
 Range("A1").Select 
 MsgBox "Cell A5 has a continuous thick bottom-edge border" 
 
 ' Find the cells based on the search criteria. 
 Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
 xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
 , SearchFormat:=True).Activate 
 MsgBox "Microsoft Excel has found this cell matching the search criteria." 
 
End Sub

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.