Discussion :

[philmire]

Bonjour,

Dans le fichier joint, je souhaite dans l'onglet "client": affiché toutes les références de la liste de l'onglet "référence" trouvées dans l'onglet "Données SAP", sachant que les références peuvent être multiples, et qu'une même référence peut être trouvé chez plusieurs clients.

Dans l'onglet "client", j'ai complété la colonne "B" avec les réponses souhaitées.

En espérant avoir été clair.

Cordialement

[EngueEngue]

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
Sub toto()
    Dim i As Long, k As Long
    Sheets("Clients").Range("A2:B200000").ClearContents
    dernlig = Sheets("Données SAP").Range("C" & Sheets("Données SAP").Rows.Count).End(xlUp).Row
    k = 2
    For i = 2 To Sheets("Références").Range("A" & Sheets("Références").Rows.Count).End(xlUp).Row
        With Sheets("Données SAP").Range("C1:C" & dernlig)
            Set c = .Find(Sheets("Références").Range("A" & i), LookIn:=xlValues)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Sheets("Clients").Cells(k, 1) = c.Offset(0, -2)
                    Sheets("Clients").Cells(k, 2) = c.Value
                    k = k + 1
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Next i
End Sub

[philmire]

Merci beaucoup EngueEngue,

Je vais maintenant la tester sur l'ensemble de mon fichier.