Enlever accent sur caractère spécial

[Pasqi]

Bonjour,

Dans le fichier ci-joint, j'ai une fonction qui devrait enlever tous les accents dans chaque cellule, mais pour certains caractères, ça ne fonctionne pas...

Quand je copie le Õ, et que je le colle ailleurs, il me donne un ?.

Il ne reconnait donc pas certains caractères spéciaux.

Si vous avez une solution, merci d'avance pour votre aide.

Suis sous excel 2002, mais migration vers 2010 d'ici peu.

Bonne journée.

 

[Hervé]

Re : Enlever accent sur caractère spécial

salut

une timide tentative de réponse à travers ce code :

Public Function Sans_accents(Chaine As String) As String
Dim a As String, b As String
Dim i As Integer, u As Integer
    a = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕ?ÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
    b = "AAAAAAEEEEIIIINOOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
    Chaine = Replace(Replace(Replace(Replace(Replace(Chaine, "oe", "oe"), _
                                             "OE", "OE"), "æ", "ae"), "Æ", "AE"), "-", " ")
    For i = 1 To Len(Chaine)
        u = InStr(1, a, Mid(Chaine, i, 1), 0)
        If u Then Mid(Chaine, i, 1) = Mid(b, u, 1)
       Select Case AscW(Mid(Chaine, i, 1))
         Case 336: Mid(Chaine, i, 1) = "O"
         Case 368: Mid(Chaine, i, 1) = "U"
       End Select
    Next i
    Sans_accents = Chaine
End Function

a plus

 

[st007]

Re : Enlever accent sur caractère spécial

Bonjour,

A voir absolument ...

 

[poulpor78]

Re : Enlever accent sur caractère spécial

Bonjour,

Si jamais les traitements vont plus loin que des accents à enlever (par exemple en téléchargeant les codes postaux de pays de l'Est où on va carrément voir des suites de caractères à remplacer), il existe une solution en travaillant directement sur le fichier texte source : l'ouvrir avec notepad ++, puis aller dans le menu encodage (ANSI, UTF8, ...) => cela m'a éviter de faire des Edition remplacer hasardeux.

Poulpor

 

[chris]

Re : Enlever accent sur caractère spécial

Bonjour

Ne serait-ce pas plutôt un problème de police ? Excel 2002 gère l'unicode mais a besoin de Arial international.

J'ai traité des fichiers en 29 langues avec la version 2000 sans souci quand la police est dispo.

 

[Pasqi]

Re : Enlever accent sur caractère spécial

Bonjour,

Désolé pour ma réponse tardive,

En tout cas, merci pour vos réponses et celles de Hervé et st007 fonctionnent parfaitement toutes les deux !!

Donc, c'est en ordre.

De plus, je migre ... enfin vers excel 2010 ce soir ;-).

Bonne journée et grand merci !!