Remplacer code par libellé

Bonjour,

J'ai un classeur.
Sur une des feuilles, dans une colonne figure des codes (5, 12 , 30....) . La feuille varie chaque mois

J'ai créé un deuxième classeur, avec sur une feuille la signification de ces codes ( 5 = Gazole ; 12 = Péage ; 30 = Super,....) .Ces données restent stables

Mon objectif : remplacer les codes du permier classeur par leur signification correspondante...

J'avais pensé à utiliser le .find (mais avec plus de 3000 lignes), je me demande si ma solution serait la plus optimale....

Bonjour,

je propose cette solution
module à intégrer dans le fichier de données, lancer Transpose

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Transpose() Dim wk1 As Workbook, wk2 As Workbook, ligne As Long   Set wk1 = ActiveWorkbook Workbooks.Open Filename:="c:\excel\liste.xls" Set wk2 = ActiveWorkbook   wk1.Activate   ligne = 1 With wk1.Sheets("Feuil1") Do Until .Cells(ligne, 1) = "" If .Cells(ligne, 1) > 0 Then .Cells(ligne, 1) = wk2.Sheets("Feuil1").Cells(.Cells(ligne, 1), 2) End If ligne = ligne + 1 Loop End With wk2.Close   End Sub

---

cela semble rapide mais il faut que le nombre 5 pour gazole, 12 pour péage soient sur les lignes 5 , 12, etc du 2ème fichier
Il y a peut-être des tests de validité supplémentaires à effectuer.

Un exemple avec la fonction replace :

Code:

---

1 2 3

Columns("A:A").Replace What:="5", Replacement:="Gazole", LookAt:=xlWhole, _ SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---