Bonjour à tous,

Avant toute chose, un petit message pour remercier les membres!
Je viens de me remettre à faire du VBA et ce site est d'une grande aide!

C'est d'ailleurs par ce biais que j'ai réussi (en partie) à faire ce que je souhaite, mais là je bloque.
Je vous explique.

Je dois comparer les données, Feuil1 Colonne A, à celles en Feuil2 Colonne A.
Si les données correspondent, il sort en Feuil1 Colonne B les données présentes en Feuil2 Colonne J de la ligne correspondante.
Sinon, il met 0.
Jusqu'ici pas de problème.

Mais, le programme ne gère pas les doublons.
C'est à dire que si, en Feuil1, A2= 001 et que A5= 001, j'aurais des données en Feuil 1 B2 mais pas en B5.

Voici le 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
20
21
22
23
24
25
26
 
Sub Sandre_RD()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim c As Range, Donnee As String
 
 
   Set FL1 = Worksheets("Données") 
    Set FL2 = Worksheets("SandreRD") 
    For NoLig = 2 To FL2.Range("A65535").End(xlUp).Row
        Donnee = FL2.Cells(NoLig, 1)  
        With FL1.Range("a1:a" & FL1.Range("A65535").End(xlUp).Row) 
           Set c = .Find(Donnee, LookIn:=xlValues)
              If Not c Is Nothing Then
                FL1.Cells(c.Row, 2) = FL2.Cells(NoLig, 10)
 
              Else
 
                 FL1.Cells(NoLig, 2).Value = 0
            End If
 
           Set c = Nothing
        End With
    Next
 
End Sub
J'ai beau chercher, je trouve beaucoup de choses pour supprimer les doublons, mais ne trouve pas de réponses à mon problème.
Dois je passer par une itération?

Un peu d'aide serait la bienvenue!
Merci d'avance!