Supprimer les éléménts sélectionnés d'une ListBox

Commenter

Contenu du snippet 

'En VBA Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Public Sub DeleteSelectedItem(ByRef Li As ListBox)
Dim i As Integer
   'on boucle à l'envers pour eviter les erreurs
   'd'index suite à une suppression
   For i = Li.ListCount - 1 To 0 Step -1
       'Si l'element est selectionner => on le supprime
       If Li.Selected(i) Then Call Li.RemoveItem(i)
   Next
End Sub 
'Exemple d'appel
Call DeleteSelectedItem(List1)

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Du même auteur (jrivet)