comboBox index remove

Salut,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Form_Load() Dim fso As New Scripting.FileSystemObject Set dossier = fso.GetFolder(App.Path & "\Test") For Each fileName In dossier.Files cbGE.AddItem (fileName.Name) Next End Sub     Private Sub cbGE_Click() Kill (App.Path & "\Test\" & cbGE.Text) cbGE.RemoveItem (cbGE.Index) End Sub

---

Une fois le fichier supprimé du repertoire je veux utiliser la methode remove pour actualiser le combobox, j'ai l'erreur :
Cet objet n'est pas un tableau

de mémoire j'écrirai plutôt :

Code:

---

cbGE.RemoveItem cbGE.ListIndex

---

c'est bon

Pour que mon combo se positionne sur la première valeur des items restant comment dosi je faire 8O

Pour définir la sélection d'un combobox tu peui utilise ListIndex...

Code:

---

cbGE.ListIndex = 0

---

Erreur : Valeur de propriété incorrecte:?

Code:

---

cbGE.Text = cbGE.List(0)

---