Salut a vous amis développeur.

Je suis en train d'essayer de développer un macro pour corriger l'orthographe d'un fichier d'extraction qui a des récurrences de fautes.
Dans le fichier d'extraction, j'ai la source de cette extraction en colonne A et une chaine de caractères en colonne B qui contient des fautes.

Sheets(2):
Colonne A / Colonne B
Source Z / Chaüne de caractéres

Ce fichier d'extraction remonte dans mon fichier via une macro.

Il faut savoir que les fautes sont en relation avec la source, c'est a dire, pour une source Z, j'ai toujours la même faute, l'extraction remplace un î par un truc du style ü, et voudrais une macro qui me corrige ça.

J'ai donc créer un onglet lexique qui recense le type d'erreur possible: dans ma colonne A, j'ai la source, en colonne B j'ai la faute, et en colonne C j'ai le caractere qui doit remplacer la faute.

Sheets(4):
Colonne A / Colonne B / Colonne C
Source Z / ü / î

Donc, pour résumer, la macro doit verifier la source, si la source correspond, voir dans la chaine de caractere Sheets(2).ColonneB si le caractére de la Sheets(4).ColonneB est present, et si oui, il le remplace par le caracteres Sheets(4).ColonneC

J'ai commencé a créer la boucle, mais je Bug un peu la pour la suite et la fonction a utiliser.
Merci pour votre aide


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
 
Dim z As Long
Dim y As Long
 
For z = 2 To 2
For y = 2 To 2
 
If ThisWorkbook.Sheets(2).Range("A" & z).Value = ThisWorkbook.Sheets(4).Range("A" & y).Value Then
Car = ThisWorkbook.Sheets(2).Range("B" & z)
Car = Replace(Car, ThisWorkbook.Sheets(4).Range("B" & y), ThisWorkbook.Sheets(4).Range("C" & y))
 
End If
 
Next y
Next z

Comme vous le voyez, j'ai tenter avec Replace(), mais VBA a pas l'air d'aimer le ThisWoorkbook pour cette fonction


Merci pour votre aide en avance.

Nico2rib