effacer plusieurs selection

Question

Bonjour,

Voila, je voudrais supprimer plusieurs selection dans une liste box, mais cela ne fonctionne pas  avec removeitem .

Qui pourrais m'aider, merci d'avance



 nb_Fichier = Lst_fichiers.ListCount - 1 'Nb tt fichiers

  For I = 0 To nb_Fichier 'debut boucle

       If Lst_fichiers.Selected(I) = True Then 'si selec vrai 

        Lst_fichiers.RemoveItem Lst_fichiers.List(I) 'sup selec

       

         End If  'fin si

     Next I 'fin boucle

Ami ben

jpleroisse · Answer

Ce code permet d'effacer l'entr&#233;e s&#233;lectionn&#233;e.

Private Sub cmdRemove_Click()
   Dim Ind As Integer


   Ind = ListBox1.ListIndex   ' Affiche l'index.
   ' V&#233;rifie qu'un &#233;l&#233;ment de la liste est s&#233;lectionn&#233;.
   If Ind >= 0 Then
      ' Supprime l'&#233;l&#233;ment de la zone de liste.
      ListBox1.RemoveItem Ind
   End If
End Sub


Pour effacer toute la liste.

Private Sub cmdRemove_Click()
ListBox1.Clear
End Sub

jpleroisse

valtrase · Answer

Salut,
Utilises plutot ce code
Private Sub Command1_Click()
Dim nb_Fichier As Integer
Dim i As Integer
nb_Fichier = Lst_fichiers.ListCount - 1 'Nb tt fichiers
  For i = nb_Fichier To 0 Step -1  'debut boucle
       If Lst_fichiers.Selected(i) = True Then 'si selec vrai
        Lst_fichiers.RemoveItem (i) 'sup selec
      
         End If  'fin si
     Next i 'fin boucle


End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

AMIBEN · Answer

Salut Jean-Paul,

Merci pour le tuyau, cela fonctionne a merveille.

A charge de service.


Cordialement 
Ami ben

Effacer plusieurs selection

3 réponses

Discussions similaires