Discussion :

[Rinzler]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Basicnav]

Petite recherche dans la faq

http://access.developpez.com/faq/?page=API#APIAccents

[Rinzler]

Yep j'avais déjà mis mon nez dans la Faq mais ça ne m'a pas vraiment aidé.

Je me suis mal exprimé dans mon premier post.

Donc je voudrai que cette macro remplace tout les caractères accentués par des caractères non accentué dans une sélection. Car toute les colonnes ne sont pas impactés