• Initiateur de la discussion Initiateur de la discussion TISBA
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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!
 
Encore un question ! Et pour faire l'inverse dans ce cas la! Pour remplacer les valeurs avec les données de la colonne B par celles de la colonne A ??

Je pense que c'est à niveau là que ça joue ? :
('TRADUCTION!A:A'), 0), 2)



Sub Traduction()

Dim Plage As Range, c As Range, Remplacement As Range
Sheets('B_SAISIE').Select
Set Remplacement = Range('A1:L' & Range('a65536').End(xlUp).row)
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


Merci!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
211
Réponses
4
Affichages
177
Réponses
4
Affichages
461
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
317
Retour