Supprimée accent Excel [Fermé]

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



Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
22807
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
7 août 2019
5578
7
Merci
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

Dire « Merci » 7

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

CCM 56076 internautes nous ont dit merci ce mois-ci

Ça marche super bien. Merci !!!
Merci. Pas de formules?
Messages postés
24271
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
7 août 2019
4700
2
Merci
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?
Vaucluse
Messages postés
24271
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
7 août 2019
4700 -
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
argixu
Messages postés
4814
Date d'inscription
dimanche 22 juillet 2007
Statut
Contributeur
Dernière intervention
3 octobre 2018
3275 -
Bonjour

Le futuriste a peut-être conservé le bon vieux raccourci CTRL + H (pour remplacer) :-)
Vaucluse
Messages postés
24271
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
7 août 2019
4700 -
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
argixu
Messages postés
4814
Date d'inscription
dimanche 22 juillet 2007
Statut
Contributeur
Dernière intervention
3 octobre 2018
3275 -
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!