Fonction excel

Résolu
amine69500 -  
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
    Salut,

    Tu as cette formule par exemple

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

    à compléter pour les autres accents ê è etc ...
    0
    1. amine69500 Auteur
      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