Remplacer certains mots par ceux d'une liste

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Mars 2010

• #2

Re : Remplacer certains mots par ceux d'une liste

Bonjour,

Voir PJ

Code:

Sub traduc()
  For Each c In Selection
    Set temp = [abrev].Find(what:=c, LookAt:=xlWhole)
    If Not temp Is Nothing Then c.Value = temp.Offset(, 1).Value
  Next
End Sub

JB
Formation Excel VBA JB

 

Pièces jointes

• Classeur1.xls

  24.5 KB · Affichages: 278
• Classeur1.xls

  24.5 KB · Affichages: 282
• Classeur1.xls

  24.5 KB · Affichages: 232

Dernière édition: 16 Mars 2010

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 16 Mars 2010

• #3

Re : Remplacer certains mots par ceux d'une liste

Merci mais c'est pas tout à fait ça ...

en fait ce ne sont pas des phrases entières à traduire automatiquement (il y a 20000 !!) mais les abréviations une par une.

Moi je possède la liste des abréviations sous cette forme :
Colonne A Colonne B
PMP Pompe
D/A Désaréateur
ENROUL Enroulement
VAP Vapeur
etc...

Il faut que la macro cherche la traduction mot par mot pour chaque phrase sélectionnée.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Mars 2010

• #4

Re : Remplacer certains mots par ceux d'une liste

Voir PJ

JB

 

Pièces jointes

• FindReplace2.xls

  27 KB · Affichages: 715
• FindReplace2.xls

  27 KB · Affichages: 614
• FindReplace2.xls

  27 KB · Affichages: 664

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 16 Mars 2010

• #5

Re : Remplacer certains mots par ceux d'une liste

Absolument GENIAL !!!!!!


un énorme merci de ma part et de mes collègues qui devaient faire ce travail 🙂

 

Vote positif 0 Vote négatif

F

fatouchka

XLDnaute Nouveau

• 20 Septembre 2010

• #6

Re : Remplacer certains mots par ceux d'une liste

Bonjour,

J'avais le même besoin ie remplacer des abreviations dans une liste de données par leur libellés.
J'ai une liste de plusieurs désignations :
ex : SOUFFL. protection. VIS DE levage
je veux remplacer par exemple tous les :
SOUFFL. SOUFFLET
PROTECT. PROTECTRICE
....

Mais j'arrive pas à exploiter votre macro : (

Merci de votre aide.

 

Vote positif 0 Vote négatif

L

Loliola

XLDnaute Nouveau

• 6 Février 2013

• #7

Re : Remplacer certains mots par ceux d'une liste

BOISGONTIER à dit:

Voir PJ

JB

Cliquez pour agrandir...

Bonjour,

avant tout un grand merci pour votre participation.
J'ai vu que ton fichier excel comportait un programme qui permettait de remplacer les mots figurant sur la même feuille.

Existe-til un moyen de remplacer les mots à partir d'un autre fichier excel différent ?

Merci pour votre réponse.🙂

 

Vote positif 0 Vote négatif