Supprimée accent Excel [Fermé]

Signaler
Messages postés
53
Date d'inscription
dimanche 25 janvier 2009
Statut
Membre
Dernière intervention
25 janvier 2012
-
 Jeessey -
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



2 réponses

Messages postés
23387
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 juillet 2020
6 245
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
8
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57829 internautes nous ont dit merci ce mois-ci

Ça marche super bien. Merci !!!
Merci. Pas de formules?
Messages postés
25188
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
20 juillet 2020
5 375
Bonjour
sans formule mais avec deux trois manip:
sélectionner
la feuille et
édition / remplacer
et remplacer: é par e è par e etc..... avec û ê ô, ï ë
.
c'est encore un peu long, mais ça va plus vite que cellule par cellule

crdlmnt
Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
Messages postés
25188
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
20 juillet 2020
5 375
je ne connais pas excel 2010 , c'est futuriste pour moi.
A tout hasard sur 2007:
ruban Accueil / et tout à droite: rechercher et sélectionner..
Bonne chance
Messages postés
4797
Date d'inscription
dimanche 22 juillet 2007
Statut
Contributeur
Dernière intervention
18 décembre 2018
3 680
Bonjour

Le futuriste a peut-être conservé le bon vieux raccourci CTRL + H (pour remplacer) :-)
Messages postés
25188
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
20 juillet 2020
5 375
Salut Argi
Moquez vous, moquez vous, il en restera toujours quelque chose :-)
Mais c'est vrai que je ne suis pas fan des raccourcis depuis la suppression de la guillotine.
Bises au plaisir
Messages postés
4797
Date d'inscription
dimanche 22 juillet 2007
Statut
Contributeur
Dernière intervention
18 décembre 2018
3 680
Oui, mais mon raccourci, il n'est pas sanglant !! :-)))
Bise
Bravo et merci pour cette solution simple ça m'a pris 2 min soit 10 fois moins de temps que chercher la solution!