VBA supression listBox
Résolu
Stikmou
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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 :)
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
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:
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
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
en surlignant SelectedItem
Voici le code
combolist.Items.Remove (combolist.SelectedItem)
Bonjour,
tu n'est PAS EN VBA mai en VB.NET
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.
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.
Problème résolue seul par :
Je sais pas si c'est esthétiquement bon et beau, mais en tous cas ça marche.
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.
