Bonjour la communauté,
je vous consulte après deux jours de recherches personelles ,


J'ai des valeurs qui se repetent dans feuil1 exemple dans la colonne B les 'X'.
Je dois remplir les lignes des doublons x sachant que les valeurs viennent de la feuille 2 et


feuil1 :
   A B    Y    Z 
1
2
3    X vide vide
4    X  vide vide
5
feuil 2:

   Z B     Y               Z 
1
2
3    X valeur a récupérer
4    X valeur a récupérer
5
Voici le code (modifié d'un tutoriel développez.net), j'ai mis en couleur les doublons ça marche bien , mais la fonction vlookup ne me récupére pas les valeurs voulues :
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Sub test()
 
IdentifieDoublons Range("K2:K1000"), Range("C5:E65000")
 
End Sub
 
 
Sub IdentifieDoublons(Plage As Range, plagesortie As Range)
    Dim Cell As Range
    Dim Un As Collection
    Set Un = New Collection
 
    On Error Resume Next
 
    'Boucle sur la plage de cellule
    For Each Cell In Plage
        Dim i As Integer
        i = 0
        i = i + 1
        'Pour ne pas prendre en compte les cellules vides
        If Cell <> "" Then
            'Ajoute le contenu de la cellule dans la collection
            Un.Add Cell, CStr(Cell)
 
            'Si la procédure renvoie une erreur, cela signifie que l'élément
            'existe déjà dans la collection et donc qu'il s'agit d'un doublon.
            'Dans ce cas la macro colorie la cellule en vert.
            If Err <> 0 Then Cell.Interior.ColorIndex = 18
 
            Range("Z" & i).Value = Application.WorksheetFunction.VLookup(Err.Offset(0, -1).Value, plagesortie, 2)
 
        End If
    Next Cell
 
    Set Un = Nothing
End Sub
Je vous remercie pour votre aide
Cordialement