Fonction excel
Résolu
amine69500
Messages postés
471
Statut
Membre
-
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
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
A voir également:
- Fonction excel
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fonction moyenne excel - Guide
- Déplacer colonne excel - Guide
2 réponses
Salut,
Tu as cette formule par exemple
=SUBSTITUE(A1;"é";"e")
à compléter pour les autres accents ê è etc ...
Tu as cette formule par exemple
=SUBSTITUE(A1;"é";"e")
à compléter pour les autres accents ê è etc ...
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
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
