[Resolu] Supprimer caracteres speciaux

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

arthur203

XLDnaute Junior
Hello Forum,

J'aimerai supprimer via VBA tous les caracteres speciaux contenus dans une feuille excel et les remplacer par un espace (e.g. [***urgent !*** A envoyer] @ PAR urgent a envoyer). Apres moulte recherche, je n'ai pas trouve une macro qui fonctionne ...

Merci poru votre aide
 
Dernière édition:
Re,

Voir le fichier joint en colonne B.
VB:
Function EPURE$(ByVal txt$, xrg As Range)
Dim tablo, i&
   tablo = xrg  'caractères spéciaux
   For i = 1 To UBound(tablo): txt = Replace(txt, tablo(i, 1), tablo(i, 2)): Next
   EPURE = Application.Trim(txt)       'au cas où...
End Function
 

Pièces jointes

Dernière édition:
J'ai essayé ca mais sans succès:

Option Explicit

Function EPURE$(txt$)
Dim tablo, t
tablo = [Liste] 'caractères spéciaux
For Each t In tablo
txt = Application.Trim(Replace(txt, t, Application.VLookup(t, tablo, 2, 0)))

Next
EPURE = txt
End Function
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
474
Réponses
26
Affichages
1 K
Réponses
3
Affichages
315
Retour