Effacer une sélection d'une Listbox les 30 lignes a partir de la premiere

bonsoir,

j'ai besoin d'une aide concernant une listbox qui contient plusieurs lignes et que je souhaite effacer les 30 premières lignes seulement.

voici le code que j'utilise mais qui me donne une erreur 388 IMPSIBLE DE DEFEINR LA PROPRIETE SELECTED.

Sub remove30()
Dim i As Integer
For i = 0 To 30
ListBox1.MultiSelect = 1
ListBox1.Selected(i) = True
If ListBox1.Selected(i) Then ListBox1.RemoveItem (i)
Next
End Sub

merci bien pour vos aides.

Peut être quelque chose comme ça

Sub remove30()
Dim i As Integer
For i = 29 To 0 step -1
ListBox1.RemoveItem i
Next i
End Sub

Je vais tester ta proposition demain

Merci bcp

merci beaucoup yal-excel pour votre aide votre proposition a marché très bien;

problème résolu.