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

[gege765]

Bonjour,

En faites les expressions qui posent problème sont contenus dans des variable de type string.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
chemin = ActiveWorkbook.Path
[a5].Select 'se mettre automatiquement dans la cellule A5
 
Dim nom, prenom, site, service, intitule, madate, organisme, objectif1, objectif2, annee As String
annee = [g2]
nom = ActiveCell
prenom = ActiveCell.Offset(0, 1)
site = ActiveCell.Offset(0, 2)
service = ActiveCell.Offset(0, 5)
intitule = ActiveCell.Offset(0, 7)
 
ActiveWorkbook.SaveAs Filename:= _
chemin & "\" & site & " " & service & "\" & nom & "_" & prenom & "_" & intitule & "_" & annee & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

et donc je souhaite vérifier les variables site, service et intitulé et remplacer les caractères qui pose problème pour la sauvegarde par des espaces.

je n'ai pas réussi a adapté la macro pour rendre ce traitement possible.

Merci de votre aide.

[sabzzz]

bonjour gege765,

Code :

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

1
2
3
4
5
6
7
8
listVar = Array(nom, prenom, site, service, intitule)
caractere = Array(".", "/", ", ", "./!") '<---mettre autant de caractère voulu, unique ou groupe
 
For i = LBound(listVar) To UBound(listVar)
  For i = LBound(caractere) To UBound(caractere)
   listVar(i) = Application.Substitute(listVar(i), caractere(i), "")
  Next
Next

[Didier Gonard]

Bonjour,

vois ceci :

exemple :

Code :

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

1
2
3
4
5
6
Sub toto()
Dim strChaine As String
 
strChaine = "toto/fifi.bubu"
MsgBox Replace(Replace(strChaine, "/", " "), ".", " ")
End Sub

ce qui dans ton code donnerait cela :

Code :

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

service = Replace(Replace(ActiveCell.Offset(0, 5), "/", " "), ".", " ")

ensuite si dans un string tu es sur qu'il n'y a que des risques de présence de points, tu ne replace que le point...

Ton chemin, du coup s'il est OK, reste idem.

cordialement,

Didier

[gege765]

Salut,

Enfaite j'ai manqué de recul et certainement d'expérience.

La solution parait "simple" une fois quel a été exposée.

Je vais tester merci beaucoup.
Merci beaucoup.