Discussion :

[thibaultrivrain]

Bonjour,

Je dois corriger la colonne BM d'un tableau T1.xls en me référant à une liste d'équivalence sur 2 colonnes A et B dans un tableau T2.xls, qui se présente comme suit:

A B
Faux1 Corrigé1
Juste1 Juste1
Juste2 Juste2
Faux2 Corrigé2

Je cherche donc une macro qui compare la colonne BM de T1.xls à la colonne A de T2
et, si par exemple, la cellule BM7 de T1.xls correspond à la cellule A4 de T2.xls (Faux2) > le contenu de BM7 sera automatiquement remplacé par le contenu de A4 + 1 colonne, soit B4 (Corrigé2).

Quelqu'un aurait une piste ?

Merci d'avance pour votre aide,

[Oh!Tofocus]

Salut

essaye ceci avec les bons nom de feuilles

Code :

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

1
2
3
4
5
6
7
8
9
10
der_ligne = Workbooks("T1.xls").Worksheets("Feuil1").Range("BM65000").End(xlUp).Row
der_ligne2 = Workbooks("T2.xls").Worksheets("Feuil1").Range("A65000").End(xlUp).Row
 
For r = 1 To der_ligne
    For s = 1 To der_ligne2
        If Workbooks("T1.xls").Worksheets("Feuil1").Range("BM" & r).Value = Workbooks("T2.xls").Worksheets("Feuil1").Range("A" & s).Value Then
            Workbooks("T1.xls").Worksheets("Feuil1").Range("BM" & r).Value = Workbooks("T2.xls").Worksheets("Feuil1").Range("B" & s).Value
        End If
    Next s
Next r