VBA - Remplacer

La fonction Replace remplace une partie spécifiée d'une chaîne par une chaîne spécifique, un nombre spécifié de fois.

Syntaxe

Replace(string,find,replacewith[,start[,count[,compare]]])

Description des paramètres

  • String- Un paramètre obligatoire. Chaîne d'entrée à rechercher pour le remplacement.

  • Find- Un paramètre obligatoire. La partie de la chaîne qui sera remplacée.

  • Replacewith- Un paramètre obligatoire. La chaîne de remplacement, qui serait remplacée par le paramètre find.

  • Start- Un paramètre facultatif. Spécifie la position de départ à partir de laquelle la chaîne doit être recherchée et remplacée. La valeur par défaut est 1.

  • Count- Un paramètre facultatif. Spécifie le nombre de fois que le remplacement doit être effectué.

  • Compare- Un paramètre facultatif. Spécifie la méthode de comparaison à utiliser. La valeur par défaut est 0.

    • 0 = vbBinaryCompare - Effectue une comparaison binaire

    • 1 = vbTextCompare - Effectue une comparaison textuelle

Exemple

Private Sub Constant_demo_Click()
   Dim var as Variant
   var = "This is VBScript Programming"
  
   'VBScript to be replaced by MS VBScript
   msgbox("Line 1: " & Replace(var,"VBScript","MS VBScript"))
  
   'VB to be replaced by vb
   msgbox("Line 2: " & Replace(var,"VB","vb"))
  
   ''is' replaced by ##
   msgbox("Line 3: " & Replace(var,"is","##"))
   
   ''is' replaced by ## ignores the characters before the first occurence
   msgbox("Line 4: " & Replace(var,"is","##",5))
   
   ''s' is replaced by ## for the next 2 occurences.
   msgbox("Line 5: " & Replace(var,"s","##",1,2))
  
   ''r' is replaced by ## for all occurences textual comparison.
   msgbox("Line 6: " & Replace(var,"r","##",1,-1,1))
  
   ''t' is replaced by ## for all occurences Binary comparison
   msgbox("Line 7: " & Replace(var,"t","##",1,-1,0))
  
End Sub

Lorsque vous exécutez la fonction ci-dessus, elle produit la sortie suivante.

Line 1: This is MS VBScript Programming
Line 2: This is vbScript Programming
Line 3: Th## ## VBScript Programming
Line 4: ## VBScript Programming
Line 5: Thi## i## VBScript Programming
Line 6: This is VBSc##ipt P##og##amming
Line 7: This is VBScrip## Programming