enlever les accents

Bonjour,

Dans le principe on peut utiliser la fonction SUBSTITUE.
=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"é";"e");"è";"e");"ê";"e")

Il faut en imbriquer autant que de lettre à traiter ...
Sinon, faire une macro Fonction.

On 5 fév, 17:38, souricette <sourice...@discussions.microsoft.com>
wrote:

Bonjour,
je cherche une fonction qui permettrait de "perdre" les accents d'un texte
accentué à la cocatenation (pour écrire des adresses mail)
le but :
A B C D E
1: Prénom Nom Fournisseur terminaison @dresse
2: Adèle Guélin wanamou com
adele.gue...@wanamou.fr

j'en suis là :
=Concatener(minuscule(FonctionCherchéeSansAccent(a2);minuscule(Foncti onCher­chéeSansAccent(b2);"@";c2;".";e2)
Help ?

Bonjour,


Dans un module:

Function sansAccent(chaine)
codeA = "éèêëàçùôûïî"
codeB = "eeeeacuouii"
temp = chaine
For i = 1 To Len(temp)
p = InStr(codeA, Mid(temp, i, 1))
If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
Next
sansAccent = temp
End Function

-Utiliser & pour la concaténation
-Pour remplacer les espaces par "-":

=SUBSTITUE(sansaccent(MINUSCULE(A1));"
";"-")&SUBSTITUE(sansaccent(B1);" ";"-")&"@edf.fr"

Cordialement JB

bonjour souricette
voici une function du président de la SPA, AV le Grand :

Function Virer_Accents$(chaine$)
Dim Tmp$
Dim i
Dim X

Tmp = Trim(chaine)
For i = 1 To Len(Tmp)
X = Asc(Mid(Tmp, i, 1))
Select Case X
Case 192 To 197: X = "A"
Case 200 To 203: X = "E"
Case 204 To 207: X = "I"
Case 209: X = "N"
Case 210 To 214: X = "O"
Case 217 To 220: X = "U"
Case 221: X = "Y"
Case 224 To 229: X = "a"
Case 232 To 235: X = "e"
Case 236 To 239: X = "i"
Case 241: X = "n"
Case 240, 242 To 246: X = "o"
Case 249 To 252: X = "u"
Case 253, 255: X = "y"
Case Else: X = Chr(X)
End Select
Virer_Accents = Virer_Accents & X
Next
End Function 'av

jps
"souricette" <souricette@discussions.microsoft.com> a écrit dans le message
de news: CDC73C26-8582-4006-B572-63CD3D8B4BE0@microsoft.com...

Bonjour,
je cherche une fonction qui permettrait de "perdre" les accents d'un texte
accentué à la cocatenation (pour écrire des adresses mail)
le but :
A B C D E
1: Prénom Nom Fournisseur terminaison @dresse
2: Adèle Guélin wanamou com
adele.guelin@wanamou.fr

j'en suis là :
=Concatener(minuscule(FonctionCherchéeSansAccent(a2);minuscule(FonctionCherchéeSansAccent(b2);"@";c2;".";e2)
Help ?