Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

supprimer/masquer items non sélectionnés ds liste

D

daniel

Guest
Bonjour le forum !

Voilà...
Dans une listbox multiselect, j'aimerais, en cliquant sur un bouton, ne faire apparaître dans la liste que les éléments que j'ai sélectionnés.

J'ai essayé le code suivant :

Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = False Then
ListBox1.RemoveItem (i)
End If
Next i

mais j'obtiens à chaque fois une erreur... Pourriez vous m'aider ? Serait-il également possible, en cliquant sur un autre bouton, de 'réafficher' la totalité de la liste sans toutefois désélectionner les éléments ?

NB: ma liste n'est pas liée à une rowsource (j'ai vu dans l'aide VBA que la méthode removeitem ne pouvait marcher dans ce cas)

Bonne journée

Daniel
 

Hervé

XLDnaute Barbatruc
Re:supprimer/masquer items non sélectionnés ds lis

bonjour

en piece jointe, une proposition.

salut [file name=Classeur2_20060112103716.zip size=12068]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060112103716.zip[/file]
 

Pièces jointes

  • Classeur2_20060112103716.zip
    11.8 KB · Affichages: 36
D

daniel

Guest
Re:supprimer/masquer items non sélectionnés ds lis

hello Hervé...

Chapeau bas, ça me convient parfaitement !! Je vais aller un peu explorer ce que tu as mis dans ton code...

Encore merci

Daniel
 

Hervé

XLDnaute Barbatruc
Re:supprimer/masquer items non sélectionnés ds lis

re

j'avais fait le contraire de ta demande, fichier corrigé.

comme ca tu aura les deux possibilités, soit masquer les sélectionner, soit les autres.

salut [file name=Classeur2_20060112104326.zip size=12067]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060112104326.zip[/file]
 

Pièces jointes

  • Classeur2_20060112104326.zip
    11.8 KB · Affichages: 41

Discussions similaires

Réponses
4
Affichages
265
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…