Bonjour Bernard,
Une fois qu'on a la méthode l'adaptation est bien facile.
Cette formule est dispo pour le français. Libre à chacun d'y ajouter
tous les caractères supplémentaire de la langue qu'il veut tant qu'il
respecte la correspondance dans les 2 formules.
On peut même y ajouter les caractères spéciaux à la manière de l'espace
qui est remplacée dans cette fonction par le tiret du 6.
Sandy-Pascal
Le 04/06/2020 à 07:01, Bernard Schoenacker a écrit :
----- Mail original -----
De: "Andriant Sandy" <[email protected]>
À: [email protected]
Envoyé: Mercredi 3 Juin 2020 23:50:22
Objet: Re: [fr-users] Formule pour supprimer la diacritique
Bsr,
Voici une fonction Excel traduite
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Option Explicit
Function MajSansAccent$(ByVal Chaine$)
'Ti
Const VAccent = "àáâãäåéêëèìíîïðòóôõöùúûüç ", VSsAccent =
"aaaaaaeeeeiiiioooooouuuuc-"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent,
Bcle, 1))
Next Bcle
MajSansAccent = LCase(Chaine)
End Function
bonjour,
pourquoi vouloir limiter la fonction alors que vous
ne couvrez pas le spectre des caractères à modifier ?
par conséquent le script en question n'est pas convenablement
exploitable si vous avez du Polonais ou du Tchèque en caractère
car ce sont également les consonnes qui contiennent des accents
et autres caractères ....
je pressent qu'il faille employer une autre solution en travaillant
à plat à partir du format csv ...
je me base principalement sur cette documentation :
https://www.postgresql.org/docs/9.1/unaccent.html
et la solution existe en Perl et est exploitable
également quelque soit le système d'exploitation:
https://metacpan.org/pod/Text::Unaccent::PurePerl
merci pour votre aimable attention
bien à vous
bernard
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
