Supprimée accent Excel
Fermé
Axwel13
Jeessey - 18 avril 2018 à 07:31
- Messages postés
- 53
- Date d'inscription
- dimanche 25 janvier 2009
- Statut
- Membre
- Dernière intervention
- 25 janvier 2012
Jeessey - 18 avril 2018 à 07:31
A voir également:
- Supprimer accent excel
- Enlever les accents excel - Meilleures réponses
- Excel supprimer les accents - Meilleures réponses
- Supprimée accent Excel - Forum - Excel
- Supprimer les accents dans une colonne d'exel ✓ - Forum - Excel
- Supprimer accent excel formule - Forum - Excel
- Accents / Excel - Forum - Excel
- Excel supprimer accents - Forum - Bureautique
2 réponses
eriiic
Modifié par eriiic le 24/09/2010 à 10:00
- Messages postés
- 24393
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 mai 2022
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