Supprimée accent Excel

Fermé
Axwel13
Messages postés
53
Date d'inscription
dimanche 25 janvier 2009
Statut
Membre
Dernière intervention
25 janvier 2012
- 23 sept. 2010 à 18:53
 Jeessey - 18 avril 2018 à 07:31
Bonjour,
je souhaite supprimer les accents grâce à une formule dans excel 2010 ; J'ai essayé =sansAccent(le mot) mais sa ne marche passa n'existe pas.
Quelqu'un aurait-il une idée, c'est pour des tables de données, c'est trop long à faire manuellement.

Merci



A voir également:

2 réponses

eriiic
Messages postés
24393
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 mai 2022
7 078
Modifié par eriiic le 24/09/2010 à 10:00
Bonjour tout le monde,

une fonction personnalisée pour supprimer les accents :
Function suppAccent(chaine As String) As String 
    Dim accent As String, sansAccent As String, i As Long 
    accent = "àéèêëîïôüù" 
    sansAccent = "aeeeeiiouu" 
    For i = 1 To Len(accent) 
        chaine = Replace(chaine, Mid(accent, i, 1), Mid(sansAccent, i, 1)) 
    Next i 
    suppAccent = chaine 
End Function

A mettre dans un module, on peut compléter la liste de lettres accentuées...
Syntaxe : =suppAccent(A2)

Plus une procédure pour traiter une plage sélectionnée :
Sub suppAccentSelection() 
    Dim c As Range 
    For Each c In Selection 
        c = suppAccent(c.Value) 
    Next c 
End Sub 

Attention : la procédure remplace les chaines dans les cellules, la chaine originale n'est plus récupérable.
eric

Edit : exemple
9
Ça marche super bien. Merci !!!
0
Merci. Pas de formules?
0