Enlever tous les accents dans des cellules

[yadla]

Bonjour le forum,

Je suis devant un petit problème surement facile à résoudre...
J'ai un programme qui fait des tests sur des prénoms entre 2 fichiers Excel. Le problème est que sur un j'ai des accents, sur l'autre nom... et vice-versa...

Donc ce que je cherche c'est comment faire pour copier les prénoms, dans une colonne à coté de la colonne d'origine par exemple, en enlevant les accents, comme ca si je fais ca dans les 2 fichiers tout devrai bien aller... j'espère

Merci pour votre réponse !

 

[JCGL]

Re : Enlever tous les accents dans des cellules

Bonjour à tous

Peux-tu essayer avec :

Option Explicit
Const Accents As String = "àâäåéèêëîïôöùûüÈÉÊËÀÁÂÃÄÅÙÚÛÜ"
Const Normaux As String = "aaaaeeeeiioouuuEEEEAAAAAAUUUU"

Private Sub CommandButton1_Click()
Dim c As Range, Derligne As Integer, i As Byte
    Derligne = Range("A65536").End(xlUp).Row
    For Each c In Range("A2:B" & Derligne)
        For i = 1 To Len(Accents)
            c.Value = Replace(c.Value, Mid(Accents, i, 1), Mid(Normaux, i, 1))
        Next i
    Next c
End Sub

A+

 

[abcd]

Re : Enlever tous les accents dans des cellules

Bonjour,

Question posée dernièrement, hier ou avant-hier.
Solution par macro.

Fais une petite recherche sous les anciens posts et tu auras la réponse.

abcd

Oups, JCGL, pas vu, trop rapide !

 

[Staple1600]

Re : Enlever tous les accents dans des cellules

Bonjour à tous



C'était zici

https://www.excel-downloads.com/threads/texte-minuscule-en-texte-majuscule-sans-accent.84217/

 

[yadla]

Re : Enlever tous les accents dans des cellules

Bonjour à tous, et merci, le code de JCGL marche parfaitement.
J'avais fait une recherche, mais pas de réponse trouvée, j'ai pas du mettre les bons mots de recherche...
Merci encore !