----- 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
