Bonjour à tous
Je suis débutant complet en VBA et je réalise généralement des macros via l'enregistrement automatique mais j'ai un besoin urgent d'une macro que j'imaginais à la base simple mais je me suis perdu en cours de route et je ne retrouve plus le fil...
J'ai un fichier excel "dictionnaire" où je stocke des "mots clefs" de traduction sur 3 colonnes : Numéro d'ordre pour le classement par niveau d'importance, mot français, mot anglais.
Et de l'autre côté j'ai des fichiers excel avec une colonne de désignation à traduire...
L'objectif de la macro est de venir chercher le mot français et le mot anglais du "dico", et de remplacer le mot français par celui en anglais dans la colonne désignation du fichier de travail...
J'ai écrit cela à tout hasard mais je pense que je suis encore loin du compte...:
Code :
- Sub Macro11TEST()
- '
- ' Macro11TEST Macro
- '
- Windows("MOT CLEF TRADUCTION ANGLAISE.xlsx" ).Activate
- Sheets("Feuil5" ).Select
- Dim numero As Integer
- Dim nb_lignes As Integer
- numero = 1
- nb_lignes = WorksheetFunction.CountA(Range("A:A" ))
- While numero <= nb_lignes
- Cells(numero, 1) = numero
- fr = Cells(numero, 2)
- en = Cells(numero, 3)
-
- Windows("ESSAI TRADUCTION.xlsx" ).Activate
- Columns("B:B" ).Select
- Selection.Replace What:="fr", Replacement:="en", LookAt:=xlPart, _
- SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
- ReplaceFormat:=False
- numero = numero + 1
- End Sub
|
Je vous remercie par avance si vous pouvez m'aider
JeanRoc
Message édité par jeanroc le 07-02-2017 à 18:25:35