Partager via

Propriété Application.ReplaceFormat (Excel)

  • Article

Définit le critère de remplacement utilisé lors du remplacement des formats de cellule. Les critères de remplacement sont ensuite utilisés dans un appel ultérieur à la méthode Replace de l’objet Range .

Syntaxe

expression. ReplaceFormat

expressionUne variable qui représente un objetApplication.

Exemple

L’exemple suivant définit les critères de recherche pour rechercher les cellules contenant la police Arial, Regular, Size 10, remplace leurs formats par la police Arial, Bold, Size 8, puis appelle la méthode Replace , avec les arguments facultatifs de SearchFormat et ReplaceFormat définis sur True pour apporter les modifications.

Sub MakeBold() 
 
 ' Establish search criteria. 
 With Application.FindFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Regular" 
 .Size = 10 
 End With 
 
 ' Establish replacement criteria. 
 With Application.ReplaceFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Bold" 
 .Size = 8 
 End With 
 
 ' Notify user. 
 With Application.ReplaceFormat.Font 
 MsgBox .Name & "-" & .FontStyle & "-" & .Size & _ 
 " font is what the search criteria will replace cell formats with." 
 End With 
 
 ' Make the replacements on the worksheet. 
 Cells.Replace What:="", Replacement:="", _ 
 SearchFormat:=True, ReplaceFormat:=True 
 
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.