Discussion :

[gege765]

Bonjour,

Voila je voudrai savoir si il est possible de remplacer certains caractères par d'autres. En faite, une fonction de m^me type que str_replace en php.

Mon problème est le suivant :
Une macro fait un traitement sur une ligne d'une base de données afin de compléter un feuille automatiquement.
Une fois cela fait, le formulaire est enregistré avec un nom reprenant certains champs de la ligne.

Le problème c'est que parfois ces champs comprennent des caractères spéciaux type : "" ou autres or c'est caractère font planter la macro lors de l'enregistrement donc je souhaites remplacer ces caractères qui posent problèmes mais je vois pas trop comment faire.

Merci de votre aide.

[OtObOx]

Il faut utiliser la fonction replace(ChaineOriginale, CaractèreAModifier, CaractèreRemplaçant)

[sabzzz]

bonjour gege765,

par exemple pour remplacer un caractere de retour à la ligne,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each c In Range("A1:A10")
Range(c.Address) = Application.Substitute(c, Chr(10), "")
Next

[gege765]

Merci des réponses.

Donc si je veux remplacer le . / ou " par espace je suis obliger de faire des boucles dans des boucles ?

[sabzzz]

Donc si je veux remplacer le . / ou " par espace je suis obliger de faire des boucles dans des boucles ?

oui,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
a = Array(".", "/", ", ", "./!") '<---mettre autant de caractère voulu, unique ou groupe
For i = LBound(a) To UBound(a)
  For Each c In Range("A1:A10")
   Range(c.Address) = Application.Substitute(c, a(i), "")
  Next
Next

[gege765]

merci Isabelle,
Je testerai demain.
Bonne soirée.

[sabzzz]

se serait mieux dans ce sens,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
a = Array(".", "/", ", ", "./!") '<---mettre autant de caractère voulu, unique ou groupe
For Each c In Range("A1:A10")
  For i = LBound(a) To UBound(a)
   Range(c.Address) = Application.Substitute(c, a(i), "")
  Next
Next