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:
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 codecombolist.Items.Remove (combolist.SelectedItem)
-
Bonjour,
tu n'est PAS EN VBA mai en VB.NETPrivate 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 :
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.
-
-
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+
