VBA supression listBox
Résolu/Fermé
Stikmou
-
7 févr. 2011 à 09:41
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 févr. 2011 à 14:05
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 févr. 2011 à 14:05
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 :)
A voir également:
- VBA supression listBox
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
- Vba range avec variable ✓ - Forum VB / VBA
- Vba autofill ✓ - Forum Excel
4 réponses
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
7 févr. 2011 à 10:31
7 févr. 2011 à 10:31
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)
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
Modifié par lermite222 le 7/02/2011 à 12:37
Modifié par lermite222 le 7/02/2011 à 12:37
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.
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
7 févr. 2011 à 13:50
7 févr. 2011 à 13:50
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+
COMMENT VEUX-TU QU'ONT S'Y RETROUVE.
A+
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
7 févr. 2011 à 14:05
7 févr. 2011 à 14:05
Encore du temps de perdu par imprécision du demandeur!
la semaine commence bien!
bonjour à lermite
la semaine commence bien!
bonjour à lermite