VBA supression listBox

Résolu
Stikmou -  
Bonjour à tous,

voila j'ai encore une question en vba.
J'ai un formulaire ou je veux supprimer certains éléments. Je m'explique :
J'ai une listBox et un bouton supprimer.
J'aimerai que quand j'ai sélectionné une ou plusieurs lignes de ma listBox et que j'appuis sur supprimer, ca me les supprime.
J'ai déjà essayer avec un RemoveItem, le problème c'est qu'il ne connais pas.

Si vous avez des idées. Merci :)

4 réponses

  1.  lermite222 Contributeur
    Pfffuuit, tu dis être en VBA, tu met un exemple en VB.Net, tu est probablement sur Access...
    COMMENT VEUX-TU QU'ONT S'Y RETROUVE.
    A+
    1. Stikmou
      vb.net oui excuse moi, erreur de ma part :/
    2. michel_m Contributeur
      Encore du temps de perdu par imprécision du demandeur!
      la semaine commence bien!

      bonjour à lermite
  2. lermite222 Contributeur
    Bonjour,
    tu n'est PAS EN VBA mai en VB.NET 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selectedItem As Object
        selectedItem = ComboBox1.SelectedItem
        ComboBox1.Items.Remove(selectedItem)
End Sub

    A+

    L'expérience instruit plus sûrement que le conseil. (André Gide)
    Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
    NOTE : Je ne répond pas aux MP pour les questions techniques.
    Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.
    1. Stikmou
      Problème résolue seul par : 
      If ComboBox1 = "" Then
    MsgBox "Vous devez choisir une taille"
    GoTo fin:
End If


ComboBox1.RemoveItem (ComboBox1.ListIndex)

DoCmd.RunSQL ("DELETE TAILLE.code_taille from TAILLE where code_taille = '" + ComboBox1 + "'")
MsgBox ("La taille " + ComboBox1 + " à été supprimé avec succès")
Me.Refresh
fin:
ComboBox1 = ""


      Je sais pas si c'est esthétiquement bon et beau, mais en tous cas ça marche.
  3. Stikmou
    Merci pour ta réponse, mais j'ai abandonné cette branche et j'ai préféré faire plutôt une comboBox. Mais j'ai toujours un problème quand j'appuis sur le bouton suprimer. Cela me marque "Membre de méthode ou données non trouvable".
    en surlignant SelectedItem

    Voici le code 
    combolist.Items.Remove (combolist.SelectedItem)
    1. michel_m Contributeur
      Bonjour,

      Difficile de te répondre sans voir le code!...

      néanmoins, s'il s'agit d'une listbox par activeX

      Ta listbox ne doit pas provenir d'une rowsource
      La propriété multiselect doit être à 2

      lorsque tui cliques sur le bouton
      il faut boucler sur la listbox en sens inverse

      par exemple: 

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

      Discussions similaires

      Méthode find dans VBA - Recherche de données sous Excel
      baissaoui

      0 réponse
      erreur d'execution 9, l'indice n'appartient pas à la sélection
      isidoh

      18 réponses
      "L'indice n'appartient à la sélection" + VBA
      fleur.31

      2 réponses
      VBA excel : résoudre problème de capacité.
      Juan Pedro

      9 réponses
      [Excel] Méthode Autofill dans une macro
      Arn's

      2 réponses