Bonjour, je cherche à faire une macro OOo Calc pour supprimer les accents.
Function remplaceAccents(ByRef texte as String) as String accents="ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝŽâàáãäåçéèêëîïñòóôõöûüýÿ" remplac="AAAAAACEEEEIIIINOOOOOUUUUYZaaaaaaceeeeiinooooouuyy" For i = 1 to Len(texte) Car = Mid(texte, i, 1) j=InStr(accents,Car) Mid(texte, n, 1) = Mid(remplac, j, 1) remplaceAccents = texte Next i End Function mais cela ne fonctionne pas Avez-vous une idée ? Merci d'avance --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]