Macro pour remplacer les caractéres accentué
Bonjour à tous,
Voila j'ai un petit problème sur une macro.
J'ai de très gros fichier excel ou je doit enlever tout les accents.
J'ai trouver une macro sur le net, mais elle ne fonctionne pas comme je le souhaite.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Sub replaceAccents()
' Définition de la conversion
Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
' La fonction :
Private Function noAccents(ByRef s As String) As String
Dim i As Integer
Dim lettre As String * 1
noAccents = s
For i = 1 To Len(accent)
lettre = Mid$(accent, i, 1)
If InStr(sansAccents, lettre) > 0 Then
noAccents = Replace(noAccents, lettre, Mid$(noAccent, i, 1))
End If
Next if
End Function
' Exemple d'utilisation :
Private Sub Form_Load()
Dim demo As String
demo = "L'été, je vais sur l'île où y'a la fête jusqu'à l'aube et" & _
" je hurle: YÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÙÚÛÜùúûü ... "
Debug.Print demo & vbCrLf & " => " & noAccents(demo)
End Sub |
Je voudrai que cette macro remplace tout les caractères accentués par des caractères non accentué.
Merci d'avance pour votre aide
