Discussion :

[Invité]

Bonjour,

Je dispose d'un classeur Excel avec une feuille .

La feuille dispose :

* d'une entête de tableau en ligne 1 (soit colonne A1 à BX1 sur 76 colonnes);
* les colonnes à considérer sont les colonnes G à BX ( soit 70 colonnes);

Quand le tableau est rempli c'est à partir de le cellule G2 à la cellulle BX???? (ou ???? correspond à un grand nombre , par exemple la ligne 500 , 1000 ou 10000 ...).

Pour chaque celulle de G2 à BX???? , je souhaite analyser chaque chaine dans chaque cellulle. Dès qu'une lettre de la chaîne répond à un caractère suivant :

Code csv :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Lettre;Statut;Conversion standard
á;minuscule;a
à;minuscule;a
â;minuscule;a
ä;minuscule;a
å;minuscule;a
ã;minuscule;a
æ;minuscule;ae
ç;minuscule;c
é;minuscule;e
è;minuscule;e
ê;minuscule;e
ë;minuscule;e
í;minuscule;i
ì;minuscule;i
î;minuscule;i
ï;minuscule;i
ñ;minuscule;n
ó;minuscule;o
ò;minuscule;o
ô;minuscule;o
ö;minuscule;o
õ;minuscule;o
ø;minuscule;o
œ;minuscule;oe
š;minuscule;s
ú;minuscule;u
ù;minuscule;u
û;minuscule;u
ü;minuscule;u
ý;minuscule;y
ÿ;minuscule;y
ž;minuscule;z
ð;minuscule;eth
þ;minuscule;th
ß;minuscule;ss
Á;majuscule;A
À;majuscule;A
Â;majuscule;A
Ä;majuscule;A
Å;majuscule;A
Ã;majuscule;A
Æ;majuscule;AE
Ç;majuscule;C
É;majuscule;E
È;majuscule;E
Ê;majuscule;E
Ë;majuscule;E
Í;majuscule;I
Ì;majuscule;I
Î;majuscule;I
Ï;majuscule;I
Ñ;majuscule;N
Ó;majuscule;O
Ò;majuscule;O
Ô;majuscule;O
Ö;majuscule;O
Õ;majuscule;O
Ø;majuscule;O
Œ;majuscule;OE
Š;majuscule;S
Ú;majuscule;U
Ù;majuscule;U
Û;majuscule;U
Ü;majuscule;U
Ý;majuscule;Y
Ÿ;majuscule;Y
Ž;majuscule;Z
Ð;majuscule;ETH
Þ;majuscule;TH

je souhaite la remplacer par son équivalence .

Exemple "AÑOS" doit devenir "ANOS" , "são polo" devient "sao polo" , ou encore "straß" doit devenir "strass" .

Est ce qu'un tel macro est faisable ?

Merci de m'aiguiller

[Invité]

Bonjour

Tu peux t'inspirer de la fonction SupprimerAccents de cette discussion : https://www.developpez.net/forums/d1...cents-sub-vba/

Philippe

[halaster08]

Bonjour,

En supposant que tu ai importé correctement ton fichier csv avec les code dans une feuille du classeur nommé "code csv"

Code :

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

1
2
3
4
5
6
7
Sub remplace()
 
For i = 2 To Sheets("code csv").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("?").Range("G1:BX10000").Replace What:=Sheets("code csv").Range("A" & i), _
    Replacement:=Sheets("code csv").Range("C" & i), LookAt:=xlPart
Next
End Sub