Supprimer Doublons dans ListBox

[MuscatMimi]

Bonjour, a tout le Forum
Dans un Usf, j'ai deux ListBox

Une BDD, "Tarif Produits"
Sur chaque ligne le noms du "Produit" est associé a un Nom de "Fournisseurs"
Ex ;
Colonne "F2:F65536" Toto, Titi, Mimi.......etc
Colonne "A;A65536" Sucettes, Bonbons,......etc

J'aimerais savoir ,s'il est possible dans la ListBox1,de Supprimer les doublons.
Sélectionné un "Nom" dans la ListBox1
et afficher dans la ListBox2, tout les Produits correspondant a ce "Nom"

Merci de votre aide a l'avance

Cordialement

 

[BOISGONTIER]

Re : Supprimer Doublons dans ListBox

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[MuscatMimi]

Re : Supprimer Doublons dans ListBox

Bonjour, J.Boisgontier

Super, tout a fait ce que j'attendais

Grand MERCI
A bientôt
Bonne journée

 

[MuscatMimi]

Re : Supprimer Doublons dans ListBox

Re J Boisgontier

je remet le fichier, car j'ai essayé d'adapter, ce code a mon fichier en cours

mais il ce trouve que si je clique sur un Nom dans la ListBox1
ça ne me met pas les bonnes données dans mes Labels
je comprends pas trop

Voici le code de ma ListBox2

Private Sub ListBox2_Click()
Set f = Sheets("TarifProduits")
Me.ListBox1.Clear
For Each c In f.Range("f2", f.[f65000].End(xlUp))
If c = Me.ListBox2 Then Me.ListBox1.AddItem c.Offset(0, -4)
Next c
End Sub

Voici le code que j'ai dans ma ListBox1 actuelle

Private Sub ListBox1_Click()
VarSelectedArticle = UserForm1.ListBox1.ListIndex + 2
LabelStock = Sheets("TarifProduits").Range("D" & VarSelectedArticle).Value '''
On Error Resume Next
If LabelStock = 0 Then
LabelCode = "Article non Dispo"
LabelPrixUnit.Visible = False
TextBoxQuantite.Visible = False
LabelPrixTotal.Visible = False
Label32.Visible = False
Label33.Visible = False
Label37.Visible = False
CommandButton4.Visible = True
Else
CommandButton4.Visible = False
LabelPrixUnit.Visible = True
Label32.Visible = True
Label33.Visible = True
Label37.Visible = True
TextBoxQuantite.Visible = True
LabelPrixTotal.Visible = True
On Error Resume Next
LabelCode = Sheets("TarifProduits").Range("A" & VarSelectedArticle).Value ''''
On Error Resume Next
LabelPrixUnit = Format(Sheets("TarifProduits").Range("C" & VarSelectedArticle).Value, "#,##0.00 €")
On Error Resume Next
Label32 = Format(Sheets("TarifProduits").Range("E" & VarSelectedArticle).Value, "#,##0.00") 'Taux TVA
LabelPrixTotal = ""
TextBoxQuantite = ""
'Label32 = "" 'Taux TVA
'Label33 = ""
TextBoxQuantite.SetFocus
End If
End Sub

Le code dans Private Sub_Initialize()

Set f = Sheets("TarifProduits")
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("f2", f.[f65000].End(xlUp))
If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
Next c
Me.ListBox2.List = MonDico.items

 

[MuscatMimi]

Re : Supprimer Doublons dans ListBox

Hello, personne pour me donner un petit coup de pouce pour mon soucis