[RESOLU]Remplir la liste COMBOBOX avec les données d’une colonne

[Ilino]

Bonjour Forum
Dans mon USF de saisie j’ai un comboBox1 affecter a la colonne A (A2 :A)
Je souhaite afficher dans un comboBox1 (d’un USF) toutes la liste de la colonne (ex : A ) sans doublant chaque fois je vais rentrer la donnée
GRAZIE

 

[Ilino]

Re : Remplir la liste COMBOBOX avec les données d’une colonne

Re
le code utilisé est

Private Sub UserForm_Initialize()
Dim Plage As Range
  With Worksheets("FSEx 2014")
    Set Site1 = .Range("A2")
    Set Plage = .Range(Site1, .Range("A65536").End(xlUp))
    Set Tableau = Plage.Resize(, 25) '<---------------------- adapter le tableau
  End With
  ComboBox1.List = Plage.Value
End Sub

mais je n'arrive aps a suprimer les doublants
grazie

 

[Ilino]

Re : Remplir la liste COMBOBOX avec les données d’une colonne

Re
je vous propose cette proposition pour commentaire
Pour remplir une combobox sans doublon et simplement, placer ce code dans le code de l'userform concerné

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 2 To Sheets("FSEx 2014").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("FSEx 2014").Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("FSEx 2014").Range("A" & i)
Next i

End Sub

grazie Staple1600
A+

 

[laetitia90]

Re : Remplir la liste COMBOBOX avec les données d’une colonne

bonjour Ilino
si tu veus une liste sans double on peut egalement utilser un dico..


un exemple

Private Sub UserForm_Initialize()
  Dim m As Object, t,i as long
   Set m = CreateObject("Scripting.Dictionary")
   t = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
  For i = LBound(t, 1) To UBound(t, 1): m(t(i, 1)) = "": Next i
   ComboBox1.List = m.keys
End Sub

reste a mettre le nom de ta feuille

 

[Ilino]

Re : Remplir la liste COMBOBOX avec les données d’une colonne

Bonjour letitia
Grazie pour la proposition je vais l'adapter a mon fichier.
A+