Discussion :

[yalefe]

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....

[helas]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[aalex_38]

Un exemple avec la fonction replace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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