Propriété Application.ReplaceFormat (Excel)

Définit le critère de remplacement utilisé lors du remplacement des formats de cellule. Le critère de remplacement est ensuite utilisé 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 trouver des cellules contenant une police Arial, Normal, taille 10, remplace leurs formats par Arial, Bold, taille 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.