Discussion :

[ouskel'n'or]

Où est l'erreur ?
Cette procédure, prise ds la FAQ, renseigne une liste sans doublons.
Pourquoi semble-t-elle fonctionner si la liste se trouve ds une feuille de calculs mais ne fonctionne pas si elle se trouve dans un userform...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test1()
Dim Cell As Range
Feuil1.ComboBox1.Clear
For Each Cell In Worksheets("Feuil1").Range("A1:A" & Range("a" & Rows.Count).End(xlUp).Row)
    Worksheets("Feuil1").ComboBox1 = Cell
    If Worksheets("Feuil1").ComboBox1.ListIndex = -1 Then _
        Worksheets("Feuil1").ComboBox1.AddItem Cell
Next Cell

Propriété MatchEntry = fmMatchEntryComplete (par défaut)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test2()
Dim Cell As Range
    Me.ListBox1.clear 
    For Each Cell In Worksheets("Feuil1").Range("A1:A" & Range("a" & Rows.Count).End(xlUp).Row)
            ListBox1 = Cell 'Erreur 380
            If ListBox1.ListIndex = -1 Then ListBox1.AddItem Cell
    Next Cell
End Sub

Je pallie le pb en ajoutant une gestion d'erreur mais j'aime pas bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        On Error Resume Next
            ListBox2 = Cell
            If ListBox2.ListIndex = -1 Then ListBox2.AddItem Cell

Une explication ?
Par avance, merci