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...:
 

 
Je vous remercie par avance si vous pouvez m'aider
 
JeanRoc

 
             Bonjour !
 
             A tout hasard tu pourrais éditer ton post initial afin d'y baliser ton code comme expliqué dans les règles de ce forum,
             il y a même une icône dédiée dans l'éditeur !
 

 
            Et dire qu'avec une simple formule de calculs un code est inutile !    
 

Bonjour
 
Désolé je ne connaissais pas... C'est chose faite

Cela me semblait trop compliqué pour une formule... J'ai beaucoup de fichier et l'utilisation des macros me semblait plus facile à réutiliser dans la durée... Sans compter l'intérêt de l'exercice... Bon je vais voir autrement.

 
            Déjà dans ta ligne de code n°19, "fr" & "en" représentent juste du texte !
            Pour des noms de variables il faut juste retirer les guillemets.
 
            Sinon ces variables sont inutiles, à quoi bon pour ne les utiliser qu'une fois,
            autant utiliser directement les références aux cellules source …
 

Merci pour les informations et votre temps.
 
J'ai réussi à faire ce que je voulais hier surtout au niveau de la boucle et donc je vous partage le résultat qui fonctionne dans mon cas car j'aime bien avoir des posts complet avec la solution:
 

 
Je vais donc pouvoir enrichir mon dictionnaire de mot-clef à l'infini... Et aussi me lancer dans un autre programme qui aurai pour objectif de lister dans une colonne excel tous les mots uniques contenus dans un texte ou une colonne de désignation afin de pouvoir identifier très rapidement les mots à traduire en priorité...

 
            Un bon code n'a pas besoin d'Activate ni de Select ni ne répète les références aux objets :
 

Sub Macro1a() 
         Dim Rg As Range, R As Long 
         Set Rg = Workbooks("ESSAI TRADUCTION.xlsx" ).ActiveSheet.UsedRange.Columns(2) 
    With Workbooks("MOT CLEF TRADUCTION ANGLAISE.xlsx" ).Worksheets("Feuil5" ) 
        For R = .Cells(1).Value To .Cells(1).CurrentRegion.Rows.Count 
            Rg.Replace .Cells(R, 2).Value, .Cells(R, 3).Value, xlPart 
        Next 
    End With 
         Set Rg = Nothing 
End Sub

Sub Macro1a() 
         Dim Rg As Range, R As Long 
         Set Rg = Workbooks("ESSAI TRADUCTION.xlsx" ).ActiveSheet.UsedRange.Columns(2) 
    With Workbooks("MOT CLEF TRADUCTION ANGLAISE.xlsx" ).Worksheets("Feuil5" ) 
        For R = .Cells(1).Value To .Cells(1).CurrentRegion.Rows.Count 
            Rg.Replace .Cells(R, 2).Value, .Cells(R, 3).Value, xlPart 
        Next 
    End With 
         Set Rg = Nothing 
End Sub

 
Testé et approuvé... C'est sûr que c'est plus propre et professionnel.
 
Merci pour votre retour