SUPPRIMER TOUS LES CARACTÈRES NON DÉSIRÉS D'UNE CHAÎNE DE CARACTÈRES

Signaler
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2625-supprimer-tous-les-caracteres-non-desires-d-une-chaine-de-caracteres

Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

je crois voir un truc plus simple ... mais peut-être me trompe-je ...
Public Function Replace(expr, car1, car2)
I = InStr(expr, car1)
Do While I > 0
expr = Left(expr, I - 1) & car2 & Right(expr, Len(expr) - I - Len(car1) + 1)
I = InStr(expr, car1)
Loop
Replace = expr
End Function

Cordialement
Messages postés
36
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
6 février 2009

Tu as tout à fait raison Mercury. Le seul hic est que REPLACE n'existe pas en VBA. Je pense donc que cela peut servir à ceux qui font du VBA.

Et merci pour ta note

PS: N'hésitez pas à me corriger si je me trompe.
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005

Est-ce qu'un simple REPLACE ne serait pas plus simple à utiliser ?

Mais bon, le but est d'apprendre, et ta fonction peut être utile pour les "puristes" du VB ;-)

Un petit 6/10 me semble honnête.