T
TISBA
Guest
Bonjour tout le monde!
Voilà j'ai une macro qui me fait une opération de remplacement! La macro est la suivante!
Sub Traduction()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets('B_SAISIE').Select
Set Remplacement = Range('A1', Range('a65536').End(xlUp))
For Each c In Remplacement
On Error Resume Next
c.Value = WorksheetFunction.Index(Range('TRADUCTION!A:B'), _
Application.Match(c.Value, Range('TRADUCTION!A:A'), 0), 2)
Next c
End Sub
En faite sur la feuille TRADUCTION on à 2 colonnes : A = mot en français et B = mot en espagnol
Sur la feuille B_SAISIE j'ai des valeurs à traduire! Ainsi la macro cherche dans la feuille B_SAISIE les éléménts et les remplacent par leurs traductions!
Le seul problème est que cette macro à été developpée pour traduire (remplacer) uniquement la colonne A de la feuille B_SAISIE! Or je souhaite qu'elle me traduise de la colonne A à J ??? comment faire! Dans le code actuel c'est ça qui bloque :
Set Remplacement = Range('A1', Range('a65536').End(xlUp))
For Each c In Remplacement
Voilà!
Merci à tous qui essayez de m'aider!
Voilà j'ai une macro qui me fait une opération de remplacement! La macro est la suivante!
Sub Traduction()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets('B_SAISIE').Select
Set Remplacement = Range('A1', Range('a65536').End(xlUp))
For Each c In Remplacement
On Error Resume Next
c.Value = WorksheetFunction.Index(Range('TRADUCTION!A:B'), _
Application.Match(c.Value, Range('TRADUCTION!A:A'), 0), 2)
Next c
End Sub
En faite sur la feuille TRADUCTION on à 2 colonnes : A = mot en français et B = mot en espagnol
Sur la feuille B_SAISIE j'ai des valeurs à traduire! Ainsi la macro cherche dans la feuille B_SAISIE les éléménts et les remplacent par leurs traductions!
Le seul problème est que cette macro à été developpée pour traduire (remplacer) uniquement la colonne A de la feuille B_SAISIE! Or je souhaite qu'elle me traduise de la colonne A à J ??? comment faire! Dans le code actuel c'est ça qui bloque :
Set Remplacement = Range('A1', Range('a65536').End(xlUp))
For Each c In Remplacement
Voilà!
Merci à tous qui essayez de m'aider!