Doublons dans combobox

[GUYANAIS]

Bonjour, 🙂

J'ai trouvé dans ue discussion précédente un code pour éviter les doublons. J'ai adapté le code pour qu'il focntionne dans mon fichier. Je ne comprend pas pourquoi il ne fonctionne pas. Dans initialize avant j'avais ce code qui fonctionner trés bien.

Private ub UserForm_initialize()
cmbgrade.RowSource = "Liste!A2: A20"
cmbindice.RowSource = "Liste!B2: B36"
End Sub

Maintenant que j'ai adapté ce code auncuns combo ne se charge.😕

Private Sub UserForm_initialize()

Dim Cell As Range
     
    'Supprime les données existantes dans le ComboBox
    Me.cmbgrade.Clear
     
    'Boucle sur les cellules de la plage A2:A20 pour
    'alimenter le ComboBox
    For Each Cell In Worksheets("Liste").Range("A2:A20")
        Me.cmbgrade = Cell
        'remplissage sans doublon
        If Me.cmbgrade.ListIndex = -1 Then _
            Me.cmbgrade.AddItem Cell
    Next Cell

End Sub

Je vous joins le fichier pour voir. 😱 Un grand merci a ceux qui donnent un coup de main et qui donnent de leurs temps dans le forum

 

[Cousinhub]

Re : Doublons dans combobox

Bonjour, tu pourrais essayer avec ceci :

Dim Cell As Range
  Dim mondico, temp
    'Supprime les données existantes dans le ComboBox
 Me.cmbgrade.Clear
 Set mondico = CreateObject("Scripting.Dictionary")
  For Each Cell In Sheets("Liste").Range("A1", Sheets("Liste").[A65000].End(xlUp))
    If Not mondico.Exists(Cell.Value) Then
      mondico.Add Cell.Value, Cell.Value
    End If
  Next Cell
  temp = mondico.Items
  cmbgrade.List = temp

 

[GUYANAIS]

Re : Doublons dans combobox

Bonsoir bhbh 🙂

Merci beaucoup de ta rapidité et de ton aide ca fait vraiment plaisir. Tout fonctionne à merveille.