Remplire une listebox sans doublon

[Meloman]

Re bonjour à tous je me trouve une fois de plus confronter à un nouveau probleme

je cherche une solution pour remplire une listbox sur une plage de A2:J30

sans doublon sans vide et inserer tous cela dans la premiere colonne de la list box comment dois je faire svp merci

 

[Bebere]

Re : Remplire une listebox sans doublon

bonjour meloman
pour initialiser la listbox évènement initialize de l'userform
mis un code dans le bouton pour écrire le contenu de la listbox en feuil2
à bientôt

 

[david84]

Re : Remplire une listebox sans doublon

Bonsoir,
une solution parmi d'autres :

Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  Set plage = [A2].Resize([A2].CurrentRegion.Rows.Count - 1, _
[A2].CurrentRegion.Columns.Count)
  a = plage.Value
  For i = 1 To plage.Columns.Count
    For j = 1 To plage.Rows.Count
      mondico(a(j, i)) = ""
    Next j
  Next i
  ListBox1.List = mondico.keys
End Sub

A+

 

[Meloman]

Re : Remplire une listebox sans doublon

bonjour bebere et david84 merci pour vos precieuse solution sa fonctionne trés bien à bientot