Suppression item combobox

Bonjour,

J'ai un problème tout simple, je veux supprimer un item de ma/mon (on dit un ou une combobox ) combobox donc, et je n'y arrive pas, pourtant j'ai trouvé la ligne de code correspondante sur internet mais cela ne marche pas...

Si vous pouviez m'aider, voici mon code :

Private Sub Userform_initialize()

 For i = 1 To ThisWorkbook.Worksheets.Count

    If Right(ThisWorkbook.Worksheets(i).Name, 1) <> "2" Then

    ComboBox1.AddItem ThisWorkbook.Worksheets(i).Name

    End If

Next i

ComboBox1.Items.Remove ("Mode d'emploi") ' et la il me met membre ou méthode de donnée introuvable, j'ai essayé avec .Item et .removeitem mais rien n'y fait

End Sub

Bonjour Ghorghorbey, bonjour le forum,

Pour supprimer un item il te faut spécifier le numéro. Ça voudrait dire refaire une boucle pour trouver l'index (Ind) de "Mode d'emploi" et dire :

Me.ComboBox1.RemoveItem (Ind)

Mais pourquoi tout simplement ne pas le charger au départ avec :

Private Sub Userform_initialize()

For i = 1 To ThisWorkbook.Worksheets.Count
    If Right(ThisWorkbook.Worksheets(i).Name, 1) <> "2" And Not ThisWorkbook.Worksheets(i).Name = "Mode d'emploi" Then
        ComboBox1.AddItem ThisWorkbook.Worksheets(i).Name
    End If
Next i
End Sub

D'accord merci pour l'astuce, je saurai maintenant qu'il faut y mettre le numéro de l'item.

J'ai effectivement fait comme tu le conseilles, c'est juste que je n'avais pas que Mode d'emploi à supprimer et la première ligne devient assez longue du coup.

Et cela m'intéressait aussi de savoir comment supprimer un item d'une combobox.

Mais merci pour ta réponse, c'est ce qu'il me fallait !

Re,

Attention, si tu dois supprimer plusieurs items il faut faire une boucle inversée du style :

For I = ComboBox1.ListCount - 1 to 0 Step -1
     If ComboBox1.List(I) = Ta_condition Then ComboBox1.Removeitem(I)
Next I

Merci beaucoup !!