Doublons dans userform

Bonjour

J'ai créé un userform qui me permet de remplir une base de donnée.

Je m'explique ... Dans ma feuille 1 j'ai une base de donnée comprenant un identifiant et l'atelier qui y est rattaché.

Dans ma feuille 2 j'ai une liste d'identifiant avec le nom de la personne associé.

La macro permet de repérer les Users qui ne sont pas dans la base de donnée et permet également grâce au userform de les y rajouter.

Mon problème est que les doublons apparaissent dans mon userform.

Je vous ai joint mon fichier pour que vous puissiez mieux comprendre

Private Sub UserForm_Initialize()

 Dim Cel As Range
Dim i As Integer

ListBox1.ColumnCount = 2

 DernLigne = Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row
 For i = 2 To DernLigne
        Set num = Sheets("Feuil2").Cells(i, 3)

  ' La recherche doit correspondre avec le contenu de la cellule
 ' Le sera trouvé que si la cellule contient 1
 Set Cel = Sheets("Feuil1").Columns("B").Find(what:=num, LookIn:=xlValues, lookat:=xlWhole)
   If Not Cel Is Nothing Then
  Else

    Liste.ListBox1.AddItem Sheets("Feuil2").Cells(i, 3)

    ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Feuil2").Cells(i, 4)

  End If

  Next i

'Liste des ateliers
 ComboBox1.ColumnCount = 1
ComboBox1.List() = Array("Cire", "Moulage", "Fusion", "Parchevement", "CND")

End Sub

Merci d'avance pour votre aide

Cordialement

Pepito

Bonjour,

Afin que je comprenne bien ton souci, lorsque tu dis "Doublons dans Userform" ...

Les Doublons existent que tu utilises ou non un UserForm ...

Donc, la question que j'ai est la suivante : si tu veux supprimer les doublons... ou si tu veux supprimer uniquement l'affichage des doublons ?

Bonjour

Effectivement je n'est pas été très clair

C'est bien à l'affichage que je veux supprimer les doublons. Ou alors faire que le userform de prenne pas en compte deux fois le même user.

Dans l'exemple que j'ai joint si tu clic sur le bouton tu verra que dans le userform les deux dernières lignes sont identiques. Moi j'aurais aimé n'en avoir qu'une mais sans jamais touché au fichier de base ....

J'espère que ça t'aide un peu.

Merci de ton aide

Cordialement

Pepito

Bonjour,

Il te faut donc traiter les doublons (pour les éliminer...) juste avant de renseigner ta ListBox ...

https://forum.excel-pratique.com/excel/combobox-sans-doublon-t30653-10.html

Bonjour James

J'ai bien regardé ton lien mais je n'arrive pas a l'appliquer dans mon cas à cause de la formule que j'utilise pour remplir mon userform ...

Je sais plus trop quoi tenter

Bonjour,

A toutes fins utiles, ci-dessous un code ... à adapter:

Private Sub UserForm_Initialize() 
    Dim UniqueList() As String 
    Dim x As Long 
    Dim Rng1 As Range 
    Dim c As Range 
    Dim Unique As Boolean 
    Dim y As Long 

    Set Rng1 = Sheets("Sheet1").Range("A1:A100") 
    y = 1 

    Redim UniqueList(1 To Rng1.Rows.Count) 

    For Each c In Rng1 
        If Not c.Value = vbNullString Then 
            Unique = True 
            For x = 1 To y 
                If UniqueList(x) = c.Text Then 
                    Unique = False 
                End If 
            Next 
            If Unique Then 
                y = y + 1 
                Me.ListBox1.AddItem (c.Text) 
                UniqueList(y) = c.Text 
            End If 
        End If 
    Next 

End Sub