Suppression caractères speciaux (accents, apostrophe...)

Bonjour à tous,

J'ai une table liée à un fichier excel comprenant plusieurs colonnes et lignes avec des données. Ces données peuvent contenir des accents et apostrophes (é, à, è, ', ",$...)

Je souhaite une requête me supprimant tous les accents et me remplaçant les apostrophes et $ par des espaces vides.

J'ai déjà trouvé plein de codes VBA mais ça n'aboutit pas.

Si quelqu'un est inspiré et a un peu de pédagogie, je suis preneur de quelques billes pour avancer svp.

merci

Bonjour,

voici un proposition de macro

Sub replacecar()
    With ActiveSheet.UsedRange

        caracteres_a_remplacer = "àâéèêëîïôöûüç"
        caracteres_de_remplacement = "aaeeeeiioouuc"
        caracteres_a_supprimer = "'$" & Chr(34) 'chr34="

        For i = 1 To Len(caracteres_a_remplacer)
            caractere_a_remplacer = Mid(caracteres_a_remplacer, i, 1)
            caractere_de_remplacement = Mid(caracteres_de_remplacement, i, 1)
            .Replace caractere_a_remplacer, caractere_de_remplacement, lookat:=xlPart, MatchCase:=True
        Next i

        For i = 1 To Len(caracteres_a_supprimer)
            caractere_a_supprimer = Mid(caracteres_a_supprimer, i, 1)
            .Replace caractere_a_supprimer, "", lookat:=xlPart, MatchCase:=True
        Next i

    End With
End Sub
Rechercher des sujets similaires à "suppression caracteres speciaux accents apostrophe"