Supprimée accent Excel
Fermé
Axwel13
Messages postés
53
Date d'inscription
dimanche 25 janvier 2009
Statut
Membre
Dernière intervention
25 janvier 2012
-
23 sept. 2010 à 18:53
Jeessey - 18 avril 2018 à 07:31
Jeessey - 18 avril 2018 à 07:31
A voir également:
- Enlever accent excel
- Excel supprimer les accents - Meilleures réponses
- Supprimer les accents excel - Meilleures réponses
- Liste déroulante excel - Guide
- Comment faire un accent circonflexe sur un clavier azerty ✓ - Forum Windows Vista
- Formule excel - Guide
- Enlever page 1 excel ✓ - Forum Excel
- E accent minuscule - Guide
2 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
Modifié par eriiic le 24/09/2010 à 10:00
Modifié par eriiic le 24/09/2010 à 10:00
Bonjour tout le monde,
une fonction personnalisée pour supprimer les accents :
A mettre dans un module, on peut compléter la liste de lettres accentuées...
Syntaxe : =suppAccent(A2)
Plus une procédure pour traiter une plage sélectionnée :
Attention : la procédure remplace les chaines dans les cellules, la chaine originale n'est plus récupérable.
eric
Edit : exemple
une fonction personnalisée pour supprimer les accents :
Function suppAccent(chaine As String) As String Dim accent As String, sansAccent As String, i As Long accent = "àéèêëîïôüù" sansAccent = "aeeeeiiouu" For i = 1 To Len(accent) chaine = Replace(chaine, Mid(accent, i, 1), Mid(sansAccent, i, 1)) Next i suppAccent = chaine End Function
A mettre dans un module, on peut compléter la liste de lettres accentuées...
Syntaxe : =suppAccent(A2)
Plus une procédure pour traiter une plage sélectionnée :
Sub suppAccentSelection() Dim c As Range For Each c In Selection c = suppAccent(c.Value) Next c End Sub
Attention : la procédure remplace les chaines dans les cellules, la chaine originale n'est plus récupérable.
eric
Edit : exemple
20 mai 2015 à 19:55
18 avril 2018 à 07:31