Supprimer les accents des majuscules et les traits d'union

Le 10/01/2014 à 19:10

Bonjour à tous ,

Je dispose d'un fichier excel 2007 dont la colonne B est renseignée de mots simples et de mots composés (comportant des traits d'union), le tout en majuscules.

Je cherche à pouvoir convertir tous ces mots (les gardant en majuscules) sans accents et en remplaçant les traits d'union par des espaces.

Je me suis renseignée un peu à gauche et à droite mais malheureusement je n'ai pu trouvé de solution.

Je me retourne vers vous dans l'espoir que vous pourriez me donner la solution à mon problème via une macro sachant que je pourrais le faire manuellement, mais il y a plus de 18000 lignes (donc cela m'aiderait énormément)

J'espère que vous me répondrez et vous remercie infiniment de votre aide/participation

Bien cordialement

Le 10/01/2014 à 19:41

Bonjour,

C'est toujours plus facile avec un fichier... même d'exemple.

Par une macro c'est surement possible, mais en formule aussi avec

=SUBSTITUE(B1;"-";" ")

Que tu mets en C1 et tu tires vers le bas

Leakimù

Le 10/01/2014 à 19:51

Bonsoir et merci d'avoir pris le temps de me répondre, j'ai essayé avec la formule substitue mais ça ne marche pas

Le 10/01/2014 à 19:57

Bonsoir,

Une proposition avec une fonction personnalisée (VBA)

Option Explicit
Public Function Sans_accents(Chaine As String) As String
' R. Dezan + Michel Pierron, revu par Jean-Eric
'Cette fonction enlève également les OE, oe, Æ, æ qui posent un problème sur les sytèmes anglais.
' remplacement des caractères accentués et -
Dim a As String, b As String
Dim i As Integer, u As Integer
    a = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
    b = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
    Chaine = Replace(Replace(Replace(Replace(Replace(Chaine, "oe", "oe"), _
        "OE", "OE"), "æ", "ae"), "Æ", "AE"), "-", "")
    For i = 1 To Len(Chaine)
        u = InStr(1, a, Mid(Chaine, i, 1), 0)
        If u Then Mid(Chaine, i, 1) = Mid(b, u, 1)
    Next i
    Sans_accents = Chaine
End Function

Le 10/01/2014 à 20:03

je viens de tester mails il ne se passe rien ça fait une semaine que je galère avec mon fichier

184fichier.xlsx (54.91 Ko)

Le 10/01/2014 à 20:41

Re,

Voir exemple dans fichier joint.

A te relire.

Cdlt

1'287fonction-sans-accents-et-tirets-v1.xlsm (17.38 Ko)

Le 10/01/2014 à 20:48

Serait il possible de me le faire sur le fichier que j'ai envoyé car de mon coté ça n'arrive pas à intégrer la commande (je suis désolé niveaux informatique je ne suis vraiment pas douée)

Le 10/01/2014 à 20:51

Re,

Tu n'as pas joint de fichier

Cdlt

Le 10/01/2014 à 20:54