comment transformer les lettres accentués dans un CONCATENER() ?

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

Dans le tableur:

=sansAccent(A1)&sansAccent(B1)&sansAccent(C1)

http://cjoint.com/?hdpjh6Dmbw

Cordialement JB

Comment puis-je obtenir dans une cellule une concatenation "non accentu ée" de
plusieurs cellule contenant des mots accentués ?
Exemple :
christèle, véronique, joëlle, .. => christele veronique joelle

avec une seule formule est-il possible de réaliser ceci ?

Comment puis-je obtenir dans une cellule une concatenation "non accentuée" de
plusieurs cellule contenant des mots accentués ?

Dans un module ordinaire :

Function Virer_Accents$(chaine$)
Dim tmp$
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

Dans la feuille de calcul ça pourrait donner quelque chose comme ça :
:=Virer_Accents(A1&A2&A3)

AV

Merci à vous deux.
Les codes fonctionnent correctement, mais dans un soucis de compréhension
personnelle, je vais conserver celui de JB.

Merci

Les codes fonctionnent correctement, mais dans un soucis de compréhension
personnelle, je vais conserver celui de JB.

Tu es libre de ton choix mais as-tu testé avec toutes les lettres (majuscule ou
minuscules) susceptibles de recevoir un accent ?
Hum...

AV