Remplacer les caractères spéciaux par VBA

Question

J'essaie de remplacer les caractères roumains (comme "şţŞŢ") d'un fichier Excel en utilisant VBA, mais je ne peux pas le comprendre.

Dans l'éditeur VBA, si j'essaie de taper "ş" ou "ţ", il est remplacé par "?". Pourquoi???

J'ai même tryed une approche différente comme:

Selection.Replace What:="ş", Replacement:="s", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

mais il ne absolutelly rien ... S'il vous plaît aider.

Answer 1

Je viens d'essayer une solution rapide pour ş qui a le code ascii 351. Il pourrait être décrit avec

ChrW(351) 

Donc, voici mon code:

Sub replance() 

Dim rng As Range 

Set rng = Worksheets(1).Columns("A:G") 

rng.Replace What:=ChrW(351), Replacement:="s", SearchOrder:=xlByColumns, MatchCase:=True 

End Sub