Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
Michel
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu (ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en
A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu (ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
Michel
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en
A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu (ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en
A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu (ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en
A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de news:
CE3C3FB8-2564-4DF5-8441-E7506647F121@microsoft.com...
Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu (ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
Michel
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en
A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu (ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2" en
A1
- remplacre les mot de la feuille "F1" par la trduction qui logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de
news:Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en
F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et
de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai
toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu
(ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans
la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille
F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en
colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en
colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui
vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne
A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION
REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2"
en
A1
- remplacre les mot de la feuille "F1" par la trduction qui
logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de
mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si
vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !
Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:
CE3C3FB8-2564-4DF5-8441-E7506647F121@microsoft.com...
Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en
F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et
de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai
toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu
(ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans
la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille
F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en
colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
Michel
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en
colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui
vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne
A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION
REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2"
en
A1
- remplacre les mot de la feuille "F1" par la trduction qui
logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de
mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si
vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de
news:Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en
F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et
de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai
toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu
(ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans
la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille
F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en
colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en
colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui
vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne
A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION
REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2"
en
A1
- remplacre les mot de la feuille "F1" par la trduction qui
logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de
mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si
vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !
Désolé.
Remplace feuil2 par F2.
Daniel
"Daniel" a écrit dans le message de news:Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de
news:Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en
F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et
de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai
toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu
(ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans
la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille
F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en
colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en
colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui
vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne
A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION
REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2"
en
A1
- remplacre les mot de la feuille "F1" par la trduction qui
logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de
mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si
vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Désolé.
Remplace feuil2 par F2.
Daniel
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de news:
FF66D819-32D3-4F8B-AF55-7F27F685929C@microsoft.com...
Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !
Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" <Daniel@discussions.microsoft.com> a écrit dans le message de
news:
CE3C3FB8-2564-4DF5-8441-E7506647F121@microsoft.com...
Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en
F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et
de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai
toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu
(ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!
Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans
la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille
F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en
colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
Michel
Bonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en
colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui
vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne
A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION
REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2"
en
A1
- remplacre les mot de la feuille "F1" par la trduction qui
logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de
mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si
vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!
Désolé.
Remplace feuil2 par F2.
Daniel
"Daniel" a écrit dans le message de news:Bonjour Daniel et merci de ton aide!
C'est quasiment ça sauf que ça ne traduit pas! ça marque "Mot sans
concordance" même si en F2 il y a la traduction en collone B!
Aussi, si il n'y as pas de traduction, la macro n'est pas obligé de dire
qu'elle n'as pas trouver la concordance, elle passe directement au
suivant!
Peut tu me re-bidouiller cet macro !
Merci beaucoup, beaucoup !Bonjour.
Essaie :
Sub Traduire()
Dim Plage As Range, c As Range, Remplacement As Range
Sheets("F1").Select
Set Remplacement = Range("A1", Range("A65536").End(xlUp))
For Each c In Remplacement
On Error Resume Next
Var = c.Value
c.Value = WorksheetFunction.Index(Range("feuil2!A:B"), _
Application.Match(c.Value, Range("feuil2!A:A"), 0), 2)
If Var = c.Value Then
MsgBox c.Value & " : Mot sans concordance"
End If
Next c
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de
news:Bonjour Michel et merci beaucoup!
Cependant, vu ma problématique, la macro doit absolument remplacer en
F1
la
valeur par sa traduction! Je pensais à la boucle qui répète l'opération
recherher la valeur de la cellule A1 de F2 dans toute la feuille F1 et
de
la
remplacer par la valeur de la cellule B1 de F2! La macro descendrai
toute
seule de ligne pour passe à la traduction de A2 et La boucle répète
l'opération jusqu'à ce que la macro tombe sur une cellule vide dans la
colone
A de F2!
Je vais quand même essayé d'exploiter ce que tu m'as fait mais si tu
(ou
quelq'un d'autre) arrive à traduire mon souhait, je prends volontier!
Merci à vous tous!Salut,
Voici un bout de code.
Je ne remplace pas le mot à traduire, mais je place sa traduction dans
la
cellule voisine.
Il s'agit d'écrire le mot à traduire dans la cellule A1 de la feuille
F1.
Dans la feuille F2 en colonne A, tu mets les mots français et en
colonne
B
leurs traductions
Sub Traduire() 'macro principale
Dim Mot As String
Mot = TraduireMot(Sheets("F1").Range("A1"))
If Mot <> "" Then
Sheets("F1").Range("A1").Offset(0, 1) = Mot
Else
MsgBox "Aucune traduction n'a été trouvée"
Sheets("F1").Range("A1").Offset(0, 1) = "N/D"
End If
End Sub
Function TraduireMot(Mot As String) As String
Dim Recherche, Adresse
Set Recherche = Sheets("F2").Range("A:A").Find(Mot)
If Not Recherche Is Nothing Then
Adresse = Recherche.Address
TraduireMot = Sheets("F2").Range(Adresse).Offset(0, 1)
End If
End Function
MichelBonjour à tous!
J'ai une petite question! Je souhaite créer un outils d'aide à la
traduction
(Français vers l'Espagnol). Voici mon idée:
- Dans une feuille "F1", les info à traduire
- Dans une feuille "F2" les traduction
==> le but de l'opération :
- Dans la feuille 2, on met en colonne A le mot francais et en
colonne
B ça
traduction espagnol!
- Ensuite, là ou j'ai besoin de vous c'est pour créer la Macro qui
vas
faire
EDITION - REMPLACER dans la feuille "F1" tous les mots de la colonne
A
par
ceux dee la B.
Je pense en faite à une boucle qui répète l'opération EDITION
REMPLACER
jusqu'a ce que tout les terme de la "F2" aient été traduit! Donc la
macro
commence par la ligne 1 dans la feuille "F2" :
- recherche dans la feuille "F1" du mot présent sur la feuille "F2"
en
A1
- remplacre les mot de la feuille "F1" par la trduction qui
logiquement
ce
trouve en A2 sur le feuille "F2"
- Et ainsi de suite jusqu'a ce qu'en feuille 2 il n'y ai plus de
mots à
traduire (dès que la macro arrive en colonne A de le feiulle "F2" et
qu'une
cellule la colonne est vide!)
Voilà ! J'espère que vous voyez là ou je veux en venir! Sinon si
vous
avez
d'autres idées elles sont les bienvenues!
Merci à vous tous!