Discussion :

[SI-SHARE]

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

[Invité]

Il y a trois erreurs dans ton code:

- Tu réinitialises i à chaque itération de la boucle 'for each'
- L'appel à 'Err.Offset(0, -1).Value' n'existe pas en vba
- Tu ne réinitialise pas l'erreur

Je te propose par exemple:

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
Option Explicit
 
Sub test()
    IdentifieDoublons Range("K2:K1000"), Range("C5:E65000")
End Sub
 
Public Sub IdentifieDoublons(Plage As Range, plagesortie As Range)
    Dim Cell As Range
    Dim Un As Collection
    Set Un = New Collection
    Dim i As Integer
 
    On Error Resume Next
 
    i = 0
    'Boucle sur la plage de cellule
    For Each Cell In Plage
 
        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(Cells.Offset(0, -1).Value, plagesortie, 2, False)
            Err.Clear
 
        End If
    Next Cell
 
    Set Un = Nothing
End Sub

Par ailleurs il faut éviter de mettre un 'On Error Resume Next' dans ton code. Il vaut mieux traiter individuellement chaque erreur.