Retirer Item dans combobox

Bonjour Forum,

je souhaite retirer d'une combobox tous les items qui terminent par : _2

voici mon code pour la populer en élimanant les doublons mais la partie pour enlever ce qui terminent par _2 ne fonctionne pas

Private Sub UserForm_Initialize()
Dim tablo, dico, i&
  With Worksheets("Clients")
    If .AutoFilterMode Then .Cells.AutoFilter
      tablo = .Range("D4", .Range("D" & .Rows.Count).End(xlUp)).Value
            Set dico = CreateObject("scripting.dictionary")
      For i = 1 To UBound(tablo): dico(tablo(i, 1)) = "": Next i
      ComboBox1.List = dico.keys

      For i = Me.ComboBox1.ListCount - 1 To 0 Step -1
    If Me.ComboBox1.List(i) = "*_2" Then
        Me.ComboBox1.RemoveItem (i)
    End If
Next i
  End With
End Sub

bonsoir,

Essaie peut-être :

    If Right(Me.ComboBox1.List(i),2) = "_2" Then

sinon :

For i = 1 To UBound(tablo)
If Right(tablo(i, 1),2) <> "_2" Then dico(tablo(i, 1)) = ""
Next i

A+

merci ca fonctionne!

Rechercher des sujets similaires à "retirer item combobox"