Macro Traduction

[ato22]

Bonjour,

J'utilise la macro suivante pour traduire du texte. Celle-ci fait un vlookup et change les mots par la traduction correspondante en utilisant une table dans un autre onglet.

Mon pb c'est que je dois systématiquement cliquer sur la barre de formule et taper entrée pour que la macro me traduise le texte. Ayant beaucoup de lignes à traduire je souhaiterai faire un copier/coller et que tout soit traduit automatiquement. Actuellement je dois sélectionner chaque cellule, cliquer sur la barre de formule et taper entrée. Sur 1000lignes ça prends beaucoup de temps !

Quelqu'un aurait une solution ?

Private Sub Translate()
If Target.Count > 1 Then Exit Sub
Dim txt$, i As Integer, trad As Variant
txt = Application.Trim(Target)
For i = 0 To UBound(Split(txt, " "))
trad = Application.VLookup(Split(txt, " ")(i), Sheets("dico").Range("A:B"), 2, 0)
If Not IsError(trad) Then txt = Replace(txt, Split(txt, " ")(i), trad)
Next
Application.EnableEvents = False
Target = txt
Application.EnableEvents = True
End Sub

Merci pour votre aide !

 

[Bebere]

Re : Macro Traduction

bonjour Ato
bienvenue
met un fichier ce sera plus facile pour tous

 

[ato22]

Re : Macro Traduction

Merci.

Voici le fichier.