VBA supression listBox
Résolu/Fermé
Stikmou
-
7 févr. 2011 à 09:41
michel_m Messages postés 16603 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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 févr. 2011 à 14:05
A voir également:
- VBA supression listBox
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Récupérer valeur cellule vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
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
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
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
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
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
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
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