[VBA-Excel] Remplacement de données

Version imprimable

15/08/2006, 20h05
elkhy

[VBA-Excel] Remplacement de données

Bonjour à tous,
Je dispose de 7 fichiers Excel, qui contiennent chacun la même structure.
Une colonne de ces fichiers contient des codes.
Certains de ces codes ne sont plus valables, et ont été mis à jour.
Je dispose d'un deuxième fichier Excel qui contient dans une colonne le code ancien
avec le nouveau code dans une colonne à côté.

Je voudrai mettre à jour les codes dans chacun de ces fichiers.

Voici un exemple :

Fichier1.xls (de même pour les 6 autres fichiers)

Colonne6
01LA
02LA
03LA
560A
etc..

FichierCorrespondance.xls

colonne1 colonne2
01LA 482Z
02LA 235S
03LA 692X

Voici ce que je voudrai obtenir

Fichier1.xls (de même pour les 6 autres fichiers)

Colonne6
482Z
235S
692X
560A
etc..

Je ne connais pas assez pour développer qque chose en vba

D'avance, Merci à tous pour vos réponses
26/08/2006, 08h14
Lexot2

8-) Bonjour elkhy

Je vais essayer de t'apporter mon aide, mais il me faut du temps pour élaborer le code nécessaire. Pas de difficulté majeure pour la réalisation de la procédure. Donc, en commençant aujourd'hui à y réfléchir, je devrais te fournir le code d'ici la fin du week-end. A bientôt

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TrierClasserRanger()
    Fich1 = "Classeur1" ' à remplacer -> Fichier1.xls
    Fich2 = "Classeur2" ' à remplacer -> FichierCorrespondance.xls
    Workbooks.Open Filename:=Fich2 'Je suppose que ton code est dans Fich1
    Worksheets("Feuil1").Select
    'Workbooks.Open Filename:=Fich1 'Fichier1 est déjà ouvert
    Workbooks(Fich1).Activate
    Worksheets("Feuil1").Select
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    'Je suppose que les anciennes références se trouvent dans la colonne 1 des deux fichiers
    NoCol = 1
    For i = 1 To DernièreLigne
        With Workbooks(Fich2).Worksheets("Feuil1").Cells
            Set trouvé = .Find(Cells(i, NoCol).Value, LookIn:=xlValues)
            If Not trouvé Is Nothing Then
                NoLigne = NoLigne + 1
                Workbooks(Fich1).Worksheets("Feuil1").Cells(NoLigne, NoCol).Value = _
                Workbooks(Fich2).Worksheets("Feuil1").Cells(trouvé.Row, 2).Value
            End If
        End With
    Next
End Sub

N'oublie pas de déclarer les variables ;)
Comme tu dis que tu as 7 fichiers, tu mets leurs noms dans le tableau Fich2(), tu remplaces Fich2 par Fich2(n)
et tu ajoutes la ligne

Code:

1
2
3
4
5
6
7
For n = 1 to Ubound(Fich2)
'avant
   For i = 1 To DernièreLigne
        With Workbooks(Fich2(n)).Worksheets("Feuil1").Cells
'......
 
Next n

Tu dis

Psst' : pour faire ça, tes 7 fichiers doivent être ouverts mais tu peux les ouvrir et les fermer au fur et à mesure...