Fonction excel

Résolu
amine69500 Messages postés 471 Statut Membre -  
amine69500 Messages postés 471 Statut Membre -
Bonjour,

je souhaiterais savoir s il existe une fonction permettant de supprimer les accents d'une chaine de caractere

exemple :

"déscription" deviens "description"

merci de votre aide

cordialement

2 réponses

  1.
    Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Tu as cette formule par exemple

    =SUBSTITUE(A1;"é";"e")

    à compléter pour les autres accents ê è etc ...
    0
  2. amine69500 Messages postés 471 Statut Membre 12
     
    Bonjour,

    super ca marche bien,

    mais voila une fonction qui correspond plus a mon besoin

    a mettre dans un module :

    Function SupprimerAccents(Texte As String) As String
    Dim Position As Integer
    Dim Caractère As String
    For Position = 1 To Len(Texte)
    Caractère = Mid(Texte, Position, 1)
    Select Case Caractère
    Case "á", "à", "â", "ä", "ã"
    Caractère = "a"
    Case "é", "è", "ê", "ë"
    Caractère = "e"
    Case "í", "ì", "î", "ï"
    Caractère = "i"
    Case "ó", "ò", "ô", "ö", "õ"
    Caractère = "o"
    Case "ú", "ù", "û", "ü"
    Caractère = "u"
    Case "ý", "ÿ"
    Caractère = "y"
    Case "ç"
    Caractère = "c"
    End Select
    SupprimerAccents = SupprimerAccents & Caractère
    Next Position
    End Function

    Sub SupprimerAcce()

    Debug.Print SupprimerAccents(Feuil2.Range("A32"))

    End Sub

    merci de votre aide

    cordialement
    0