Suppression accents et autres

[chatisis]

Bonjour,

Je cherche une macro Excel qui me permettra de supprimer les accents , les cedilles, les trémas... comme le fait la fonction ANSI128 de Morefun pour ceux qui connaissent cet ensemble de fonctions, téléchargeable sur ce site Ce lien n'existe plus, cette fonction marche bien, mais il faut créer une colonne pour la faire fonctionner, faire un copier-coller Valeur et supprimer la colonne d'origine, c'est un peu long. Je souhaite une macro qui fait tout cela à patir de la colonne à traiter.

Merci d'avance et bon week-end.

Message édité par: chatisis, à: 26/08/2005 11:23

Message édité par: chatisis, à: 26/08/2005 11:38

 

[Bricofire]

Bonsoir MyDearFriend, le fil.... 🙂

Ben non mDF, t'es pas tout seul 😉 , tu es vu et apprécié incognito parfois 🙂

Bonne soirée à tous

Bfr

 

[Staple1600]

Merci à MyDearFriend pour le lien
(Comme tu l'indiquais dans ta réponse
'tu trouveras également ton bonheur '
s'adressais à chatisis
Mais moi j'avais déjà mon bonheur
alors c'est vrai j'ai oublié de te saluer
et d'aller voir illico presto le fil indiqué)
J'ai eu tort, mais je suis retourné te saluer
(avec retard il est vrai)


Donc j'ai modifié le code de _Ti
(si peu)

Function MajSansAccent$(ByVal Chaine$)
'Ti
'Modifs Staple 1600 -ajout des majuscules accentuées
Const VAccent = "ÀÁÂÃÄÅàáâãäåÈÉÊËéêëèÌÍÎìíîïÒÓÔÕÖðòóôõöÙÚÛÜùúûüýÿ皞ݟNJŽ", VSsAccent = "AAAAAAaaaaaaEEEEeeeeIIIiiiiOOOOOooooooUUUUuuuuyycsz"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = Chaine
End Function

C'est trés joli propre et concis
(enfin moi je trouve par rapport à la première fonction
que j'avais citée)

PS: pour chatisis
Si tu aimes et apprécies les codes concis
Remplace la fonction SupprimerAccents
par celle de _Ti : MajSansAccent

Sub TEST() 
For Each C In Selection 
C.Value = MajSansAccent(C.Value) 
Next 
End Sub

 

[chatisis]

Merci à vous tous, je reste avec la macro que j'ai installée et testée.
A vrai dire, je n'ai pas compris celle qui est concise.

Bon week-end et à la prochaine fois, vous m'avez beaucoup aidé et me faire gagner du temps.

Très cordialement.