Bonjour,
Sébastien CELLES a écrit :
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
Je ferai plutôt comme ceci :
Function remplaceAccents( ByRef texte as String ) as String
dim accents as string, remplac as string
dim i as integer, j as integer
accents = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝŽâàáãäåçéèêëîïñòóôõöûüýÿ"
remplac = "AAAAAACEEEEIIIINOOOOOUUUUYZaaaaaaceeeeiinooooouuyy"
For i = 1 to Len( texte )
j = InStr( accents, Mid( texte, i, 1 ) )
if j > 0 then Mid( texte, i, 1 ) = mid( remplac, j, 1 )
Next i
remplaceAccents = texte
End Function
Comme précisé par Laurent Godard, la liste [EMAIL PROTECTED] est
plus appropriée pour les questions/problèmes ayant traits aux macros.
François Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
