Supprimer les accent dans une chaine

**avigeilpro** · 10/09/2006, 15h53

Bonjour à tous.

Je cherche à enlever les accents qui pourraient être dans une chaine de caractère lue dans un TextBox sans avoir à faire des Replace pour chacun des caractères accentués.
Exemple :
Si une variable Toto contient "Sébastien" il faut qu'elle devienne "Sebastien".

Je sais faire de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Toto As String
 
Toto = Text1.Text
 
Toto = Replace(Toto, "é", "e")
Toto = Replace(Toto, "ô", "o")
Toto = Replace(Toto, "è", "e")
...

mais je voudrais quelquechose de plus simple et qui fonctionne pour tous les caractères accentués.

Merci d'avance à ceux qui pourrons m'aider sur ce sujet

**Jihnn** · 10/09/2006, 17h06

Je sais pas si ça peut t'aider mais :

Le code des caractères accentués est une plage de 192 à 255

Dans cette plage, 198, 208, 215, 216, 222, 223, 230, 240, 247, 248 et 254 ne sont pas des caractères accentués. Donc tu pourrais faire une boucle qui regarde tous les caractères de ta chaîne, et vérifier la plage.

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
30
31
32
33
34
35
36
37
38
39
40
41
Dim i As Integer
Dim strChar As String

For i = 1 To Len(Chaine)
 strChar = Mid$(Chaine, i, 1)
 
 Select Case Asc(strChar)
  Case 192 To 197
   'Ce sont des "A" accentués
  Case 199
   'Un "Ç"
  Case 200 To 203
   'Ce sont des "E" accentués
  Case 204 To 207
   'Ce sont des "I" accentués
  Case 208
   'C'est un "Ñ"
  Case 210 To 214
   'Ce sont des "O" accentués
  Case 217 To 220
   'Ce sont des "U" accentués
  Case 221
   'C'est un "Ý"
  Case 224 To 229
   'Ce sont des "a" accentués
  Case 231
   'C'est un "ç"
  Case 232 To 235
   'Ce sont des "e" accentués
  Case 237 To 239
   'Ce sont des "i" accentués
  Case 241
   'C'est un "ñ"
  Case 242 To 246
   'Ce sont des "o" accentués
  Case 249 To 252
   'Ce sont des "u" accentués
  Case 253, 255
   'Ce sont des "y" accentués
 End Select
Next i

Donc je crois que c'est un moyen "simple" de faire ce que tu désires.

**avigeilpro** · 10/09/2006, 17h14

Je trouve que ton moyen simple est encore plus compliqué que le miens sans vouloir t'offensser

mais j'ai peut-être un début de solution grâce à ce que tu viens de me faire remarqué.
Merci quand même

**Jihnn** · 10/09/2006, 17h16

C'est ce que je me disais, mais en fait je trouve que c'est mieux que de faire 52 Replace ^^

**Delbeke** · 10/09/2006, 18h04

Très jolie ta solution Jihnn
voila la mienne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
      SubstOrg = "àéèëêïîöôüûùç'"  ' a compléter si besoin
      SubstDest = "aeeeeiioouuuc " 
      For i = 1 To Len(SubstOrg)
        car = Mid$(SubstOrg, i, 1)
        Posit = InStr(X, car)
        While Posit > 0
          Mid$(X, Posit, 1) = Mid$(SubstDest, i, 1)
          Posit = InStr(X, car)
        Wend
      Next

**jmfmarques** · 10/09/2006, 19h00

Bonjour,

(juste de passage)

Quid d'un tableau dynamique avec, en 1ère colonne les caractères accentués et en 2ème colonne leur traduction sans accents, dans le même ordre, puis une boucle sur le tableau en utilisant Replace (avantage : plusieurs mêmes caractères changés d'un seul coup et sans les longueurs d'un mid ou d'un instr) ?