[users-fr] Macro OpenOffice Calc pour supprimer les accents

Mon, 07 Jul 2008 13:00:10 -0700 

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]

Répondre à