Transformer č --> c ; ŝ --> s [Résolu]

[ClaudeLELOUP]

Bonjour,

Je voudrais supprimer les accents dans une chaîne de caractères.
Mon problème : č et ŝ
Dans l'éditeur VBE, je ne parviens pas à écrire, comme je le fais ici (avec copier/coller du č) :
Chaine = Replace(Chaine, "č", "c") ***
j'obtiens

Code :

Chaine = Replace(Chaine, "c", "c")

Je ne trouve pas non plus le code ASCII de č qui me permettrait d'écrire

Code :

Chaine = Replace(Chaine, chr(nnn), "c")

*** si, dans ce message, j'encadre ce texte entre les balises # cela donne

Code :

Chaine = Replace(Chaine, "č", "c")

Merci déjà à ceux qui auront lu.

[Spoutnik]

Hello,

Je ne connais pas le VBA, mais j'ai eu un problème similaire (lettres accentuées et diacritiques) il y a qq temps en Java.
Regarde du coté de la fonction 'Normalize' (j'ai trouvé ca sur la doc .Net http://msdn.microsoft.com/en-us/library/8eaxk1x2.aspx, si ca peut t'aider).

Quant aux codes ascii de ce types de caractères, c'est normal que tu ne les trouves pas ... ils n'existent pas (au moins dans la table standard).

Tiens moi au courant si ca a résolu ton problème.

++

[micniv]

Caractères spéciaux en effet, je retire ma réponse trop rapide.

[ClaudeLELOUP]

Merci Spoutnik,

Mes connaissances informatiques sont limitées : je suis incapable de construire en VBA l’équivalent du code que renseigne ton lien.
Mais, grâce à ça, j’ai la solution.
J’ai créé un table CarSpec avec [id] et [caractere]
Avec des copier/coller j’ai introduit č et ŝ
J’ai écrit la fonction

Code :

1
2
3
Public Function getCar(id As Long) As String
getCar = DLookup("caractere", "CarSpec", "id=" & id)
End Function

et maintenant

Code :

1
2
Chaine = Replace(Chaine, getCar(1), "c") 'c avec accent circonflexe renversé
Chaine = Replace(Chaine, getCar(2), "s") 's avec accent circonflexe

me donne le résultat voulu.

Merci encore et bonne journée.

Ps Géniale ta signature ! (je suis Belge)