La fonction Replace dans VBA est utilisée dans les macros pour remplacer une chaîne par une autre. Cette fonction tient compte de la casse, donc des caractères majuscules et minuscules.
La fonction Replace
La fonction VBA Replace suit la syntaxe suivante :
Replace(variable,chercher,remplacer,position, nb, comparer)
où :
- variable correspond à la chaine à analyser
- chercher correspond au caractère ou à la sous-chaine à chercher
- remplacer correspond à la chaine de remplacement
- position désigne le numéro de caractère à partir duquel effectuer la recherche
- nb correspond au nombre de remplacements. Si rien est indiqué, alors toutes les occurences sont remplacées
- comparer correspond au type de comparaison à réaliser et peut prendre les valeurs suivantes :
- vbUseCompareOption : comparaison avec l'option Comparer
- vbBinaryCompare : comparaison binaire
- vbTextCompare : comparaison textuelle
Exemple de macro avec Replace
La macro
Sub nommacro()
Dim i As Integer
For i = 1 To 5
'Résultat dans Ligne de 1 à 5, Colonne 2
Cells(i, 2).Value = Replace(Cells(i, 1), " ", " --- ")'Résultat dans Ligne de 1 à 5, Colonne 3
Cells(i, 3).Value = Replace(Cells(i, 1), "Fonction ", "")Next i
End Sub
Les données sources
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | Fonction VBA Mid | ||||
| 2 | Fonction Excel STXT | ||||
| 3 | Fonction Caractères | ||||
| 4 | Fonction Substitue() | ||||
| 5 | Fonction Remplacer |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | Fonction VBA Mid | Fonction --- VBA --- Mid | VBA Mid | ||
| 2 | Fonction Excel STXT | Fonction --- Excel --- STXT | Excel STXT | ||
| 3 | Fonction Caractères | Fonction --- Caractères | Caractères | ||
| 4 | Fonction Substitue() | Fonction --- Substitue() | Substitue() | ||
| 5 | Fonction Remplacer | Fonction --- Remplacer | Remplacer |
La fonction Replace tient compte de la casse, donc des caractères majuscules et minuscules.