Suppression accents et autres

chatisis

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

Staple1600

XLDnaute Barbatruc
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)
VB:
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
VB:
Sub TEST() 
For Each C In Selection 
C.Value = MajSansAccent(C.Value) 
Next 
End Sub
 
Dernière édition:

chatisis

XLDnaute Nouveau
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.
 

Discussions similaires

Réponses
2
Affichages
486

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib