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.
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
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?
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
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
