Éliminer certains caractères d'une chaîne

[Magic_Doctor]

Bonsoir,

Le problème est simple. J'ai une chaîne de cactères de laquelle je veux éliminer certains caractères et les remplacer par un espace.

Plein d'optimisme, j'ai bien tenté ceci :

Dim MesBoSep, maChaine As String

MesBoSep = Array(".", ",", ";", "-", "/", "|", "~")
maChaine = Replace(maChaine, MesBoSep, " ")

avant de ressombrer dans un profond pessimisme.

Merci à celui qui me permettra de recouvrer mon optimisme.

 

[Staple1600]

Bonsoir le fil, le forum

@Magic_Doctor
Voir du côté de RegExp et de ses patterns
(sauf pour les macistes )
ou aussi de du côté de la boucle

Sub Macro1()
Dim MesBoSep, maChaine As String
maChaine = "12;345~~6M.,a-g/ic|Do|tor"
MesBoSep = Array(".", ",", ";", "-", "/", "|", "~")
For Each a In MesBoSep
maChaine = Replace(maChaine, a, "")
Next a
MsgBox maChaine
End Sub

 

[Magic_Doctor]

Merci Staple, ça marche bien.

Mais au fait, c'est quoi les "macistes" ? Une secte séditieuse ?

 

[Staple1600]

Re

Déjà évoqué dans un de tes fils.
RegExp ne fonctionne que sous Windows
(donc les possesseurs d'un Mac, les macistes donc ne pourront pas utiliser un VBA qui utilise RegExp)

 

[Magic_Doctor]

Aaaahhh ! La secte des Geeks-métroSexuels. Tout dans le look, rien dans la tronche !

 

[Staple1600]

Re

Aaaahhh ! La secte des Geeks-métroSexuels. Tout dans le look, rien dans la tronche !

Cette assertion n'engage que toi.

PS: Et comme je l'avais dit dans ton fil, je suis sous PC
(pas pour Windows, mais pour Linux et pour Excel ou vice versa)
Mais il est vrai que j'avais aussi dit dans un autre de tes fils, que tu avais des problèmes de mémoire

 

[Magic_Doctor]

Oui, de temps en temps dans ce monde lobotomisé par la bien-pensance et le politiquement correct, il faut savoir s'exprimer, surtout si ça dérange !
Je ne comprenais pas "maciste" pour la prononciation. Comme on dit (phonétiquement) "Mak" et non pas "Mass"... On devrait plutôt dire "makisme", et ainsi on établirait une nouvelle exception dans une langue (le français) truffée d'exceptions. On n'en est plus à une près...