suppression des accents

[seb]

Bonsoir,

purriez vous m'indiquer svp s'il existe une formule de suppression des accents dans excel?

merci d'avance

Seb

 

[Celeda]

Bonjour,

Une formule je ne suis pas sure mais une macro ......il me semble en avoir vue trainer une quelque part faite par le petit père Ti ou alors c'est le pousse-rapière qui me fait dire des bêtises (ou alors une autre qui lui ressemble)

mais je chercherai à moins que quelqu'un le trouve plus rapidement ......................


Celeda

 

[myDearFriend]

Bonsoir Celeda, Seb, le Forum.


Ci-dessous une fonction VBA d'Alain Vallon :

Public Function SupprAccents(chaine As String) As String
'Suppression des accents (Fonction de Alain Vallon)
Dim Tmp As String
Dim i As Byte
Dim X As String
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
SupprAccents = SupprAccents & X
Next i
End Function


Cordialement,
Didier_mDF

 

[Celeda]

Bonsoir,

et ben ti en voilà une de solution
........heureusement MDF est passé par là

merci merci merci


Celeda

 

[myDearFriend]

Et pour celles et ceux qui aiment la diversité, voici Lien supprimé fournies par les ténors du Forum...

Mes hommages Celeda.

Didier_mDF