Effacer les éléments sélectionnés à partir de ListBox

Je suis en train de créer un simple formulaire à l'aide d'une macro Excel. Ce formulaire sera utilisé pour l'entrée de données qui seront stockées dans la Feuil2. Une fois les données sauvegardées, je voudrais effacer le contenu de la forme. J'ai été en mesure d'atteindre cet objectif pour la plupart des boîtes de saisie, sauf pour la zone de liste. Ci-dessous le code que, grâce à laquelle je suis en train de réaliser cette fonctionnalité. 

     Dim clearlstbox As Long

      With AOI
       For clearlstbox = .ListCount - 1 To 0 Step -1
         If .Selected(clearlstbox) = True Then
        .RemoveItem clearlstbox
         End If
       Next clearlstbox
      End With

   '
   'For clearlstbox = AOI.ListCount - 1 To 0 Step -1
   '    If AOI.Selected(clearlstbox) = True Then
   '        AOI.RemoveItem (clearlstbox)
   '    End If
   'Next

À la fois avec les codes, il lance un message d'erreur similaire "erreur d'exécution '-2147467259 (80004005) erreur non spécifiée"

  • Voulez-vous vraiment supprimer les éléments sélectionnés de la zone de liste ou décochez simplement la leur?
  • désélectionnez-les dans la zone de liste.
InformationsquelleAutor user3175856 | 2014-01-10
  1. 2

    Pour désélectionner tous les éléments dans une zone de liste

    For clearlstbox = 0 To AOI.ListCount - 1
    AOI.Selected(clearlstbox) = False
Next
    • c'était simple.. cela a fonctionné merci
    InformationsquelleAutor Tmdean
  2. 2

    Vous pouvez désélectionner toutes les valeurs sélectionnées dans une listbox par l'exécution de cette:

    Me.Listbox1.Value = ""

    où "Listbox1" est le nom de votre zone de liste

    Pour effacer une zone de liste à sélection multiple, utilisez ce code:

    Me.listbox1.MultiSelect = fmMultiSelectSingle
Me.listbox1.Value = ""
Me.listbox1.MultiSelect = fmMultiSelectMulti

    cette règle à une sélection unique pour la désactiver, puis de nouveau à un multiselect pour votre fonctionnalité d'origine

    • Cela fonctionne pour de liste à sélection multiple des cases? si donc c'est plus simple que ma réponse...
    • voir la réponse révisée
    • Est-il un moyen pour sélectionner tous les éléments d'aussi simple que la désélection? Et pour .valeur = "" pour le travail ne serait pas .BoundColumn doivent être mis à 0 ainsi?
    InformationsquelleAutor SilverShotBee