J'ai trouvé une requête VBA qui devrait résoudre ton problème.
N'hésites pas à regarder la source d'autres possibilités te sont offertes :
Function Virer_Accents$(Chaine$)
'AV
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
dan57 a écrit :
ahhhhh ici je croyais qu'on parlait systematiquement de excel....
Tu es dans "Autres questions" mais ce n'est pas grave je pense
La prochaine fois mets toi au chaud dans Excel/VBA.