Macro traduction de tableau
krystof84@hotmail.com
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaiterais créer une macro permettant de traduire des chaines de caractère présentes dans la colonne A d'un tableau 'destination' dans la colonne B de ce même tableau. Cette traduction se ferait à l'aide d'un tableau 'source' ou ce trouve les chaines de caractères (en colonne A) déjà traduites dans la colonne B.
Je pensais faire quelque chose de ce type la, mais mes connaissances en VB sont trop faibles :
Sub Traduction()
'
' Traduction Macro
' Macro enregistrée le 23/11/2008 par Moi
Dim ligneSource As Integer
Dim ligneDestination As Integer
For ligne = 2 To 500 Step 1
For ligneSource = 2 to 500 step1
If tableauDestination(ligneDestination, A) = tableauSource(ligneSource, A)Then
tableauDestination(ligneDestination, B) = tableauSource(ligneSource, B)
End If
Next ligneSource
Next ligneDestination
'Scrutation de toutes les lignes du tableau source, et si une ligne du tableau Destination = une ligne du tableau destination, on met la colonne B de cette même ligne du tableau source dans la colonne B du tableau destination
End Sub
Je ne sais pas comment faire réference à un autre projet excel, et j'aurais besoin de vos lumière (Si mon explication est assez claire).
Merci beaucoup
Je souhaiterais créer une macro permettant de traduire des chaines de caractère présentes dans la colonne A d'un tableau 'destination' dans la colonne B de ce même tableau. Cette traduction se ferait à l'aide d'un tableau 'source' ou ce trouve les chaines de caractères (en colonne A) déjà traduites dans la colonne B.
Je pensais faire quelque chose de ce type la, mais mes connaissances en VB sont trop faibles :
Sub Traduction()
'
' Traduction Macro
' Macro enregistrée le 23/11/2008 par Moi
Dim ligneSource As Integer
Dim ligneDestination As Integer
For ligne = 2 To 500 Step 1
For ligneSource = 2 to 500 step1
If tableauDestination(ligneDestination, A) = tableauSource(ligneSource, A)Then
tableauDestination(ligneDestination, B) = tableauSource(ligneSource, B)
End If
Next ligneSource
Next ligneDestination
'Scrutation de toutes les lignes du tableau source, et si une ligne du tableau Destination = une ligne du tableau destination, on met la colonne B de cette même ligne du tableau source dans la colonne B du tableau destination
End Sub
Je ne sais pas comment faire réference à un autre projet excel, et j'aurais besoin de vos lumière (Si mon explication est assez claire).
Merci beaucoup
A voir également:
- Macro traduction de tableau
- Tableau word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Google traduction photo - Guide
1 réponse
Bonsoir,
Les 2 tableaux sont ils dans le m^me classeur ?
Quels sont les noms des onglets contenant les tableaux ?
ces précisions sont importantes car tu indiques ton niveau en VBA et donc il pourrait être délicat pour toi d'adapter le code.
Si possible mettre un extrait de ou des classeurs sur
https://www.cjoint.com/ et tu colles le lien proposé dans ton message
dans l'attente
Les 2 tableaux sont ils dans le m^me classeur ?
Quels sont les noms des onglets contenant les tableaux ?
ces précisions sont importantes car tu indiques ton niveau en VBA et donc il pourrait être délicat pour toi d'adapter le code.
Si possible mettre un extrait de ou des classeurs sur
https://www.cjoint.com/ et tu colles le lien proposé dans ton message
dans l'attente