Supprimer les doublons dans une combobox

Bonjour,

J'ai créé un userform pour simplifier la recherche dans un tableau.

Dans mon userform, j'ai une combobox ou je viens sélectionner un nom de client (Ces noms proviennent de mon tableau est il sont sans doublons)

Une fois que j'ai selectionné le client, je viens alimenter une 2ème combobox avec les n° d'OF correspond à mon client.

Or, pour un même OF, je peux avoir plusieurs produits et dans mon tableau, chaque OF représente une ligne. Donc dans cette 2ème combobox, j'ai plusieurs fois le même n° d'OF qui reviens (C'est ces doublons que je souhaite supprimer)

Enfin, j'ai une 3ème combobox où je sélectionne le produit que je veux.

Je met un extrait de mon fichier en pièce jointe comme cela vous verrai mon code.

La question est : Comment puis-je supprimer les doublons dans ma 2ème combobox ?

En vous remerciant d'avance pour votre aide

Bonjour,

remplacer votre sub Private Sub Client_AfterUpdate() par celle ci et tester :

Private Sub Client_AfterUpdate()
  Dim Client1 As Integer
  OF.Clear

 For Client1 = 2 To ThisWorkbook.Sheets("SUIVI").UsedRange.Rows.Count
    If ThisWorkbook.Sheets("SUIVI").Cells(Client1, 8).Value = Client.Value Then
        OF = ThisWorkbook.Sheets("SUIVI").Cells(Client1, 2).Value     ' on copie la valeur dans la combobox
        If OF.ListIndex = -1 Then           ' si n'existe pas
            OF.AddItem ThisWorkbook.Sheets("SUIVI").Cells(Client1, 2).Value
        End If
        OF.ListIndex = -1
    End If
 Next
End Sub

A+

Bonjour,

Ça marche nickel...

Merci beaucoup pour ta réponse et ta réactivité.

Bonne journée