Remplacement de caractères spéciaux

**Herbert50** · 24/03/2019, 20h14

Bonjour,

je fais actuellement face à un problème pour lequel je sollicite l'aide de ceux qui auront le temps de me lire.

Je souhaite remplacer certains caractères spéciaux par un autre caractère.

Voici ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sheets("Extraction des données brutes").Activate
Cells.Select
    Selection.Replace What:="Ú", Replacement:="é", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Cells.Select
    Selection.Replace What:="chr(63)", Replacement:="E", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Sheets("Calculs - tableau final").Activate
End Sub

Vous l'aurez compris le premier paragraphe fonctionne et remplace correctement le Ú par un é, cependant le second caractère (un caractère spécial) : "╔" le n°63 n'est pas reconnu.
Comment faire pour le définir et pour qu'il soit détecté?

Merci d'avance.

**unparia** · 24/03/2019, 20h27

Bonjour
"chr(63)" est une chaine de caractère (du texte) contenant textuellement "chr(63)"
le caractère de code 63 est ... chr(63).

PS j'appelle par ailleurs ton attention sur le fait que 63 est le code ascii du ? et non du symbole ╔ que tu montres.

**Herbert50** · 24/03/2019, 20h37

merci pour cette réponse rapide, j'avais déjà essayé ceci, cela a pour résultat de tout remplacer par "E".

Voici le fichier excel pour plus d'info. (les données de "feuille 1" sont a coller dans extraction des données brutes, puis cliquer sur le bouton 1 de la feuille "Calculs - tableau final"