Bonjour,
J'ai copié un bout de code sur le forum et je tente de l'appliquer à ma cause...mais en vain.
Voici ce code :
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
 
Dim E_F1 As Range
Dim E_F2 As Range
 
With Worksheets("Feuil1")
    Set E_F1 = .Range("E" & .Rows.Count).End(xlUp)
 
    Set E_F2 = Worksheets("Feuil2").Range("E" & .Rows.Count).End(xlUp)
 
    For i = 0 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        For j = 0 To Worksheets("Feuil2").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
            If E_F1.Offset(i, 0) = E_F2.Offset(j, 0) Then
                For k = 1 To 4
                    E_F1.Offset(i, k) = E_F2.Offset(j, k)
                Next k
            End If
        Next j
    Next i
End With
L'objective c'est de comparer la colonne E de la Feuil2 à la colonne E de la Feuil1.
Si il y a une correspondance, on copie et colle les 4 colonnes (A, B, C et D) de la Feuil1 vers la Feuil2.
Et si pas de correspondance on ne fait rien.
Que dois-je modifier pour l'adapter ?
Merci