Sujet Précédent Sujet Suivant

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
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

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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: 

 For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) = True Then
            ListBox1.RemoveItem (ListBox1.ListIndex)
        End If
    Next i
0
Réponse 2 / 4
Stikmou
7 févr. 2011 à 10:45
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)
0
Réponse 3 / 4
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
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.
0
Stikmou
7 févr. 2011 à 13:14
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.
0
Réponse 4 / 4
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
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+
0
Stikmou
7 févr. 2011 à 13:59
vb.net oui excuse moi, erreur de ma part :/
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 févr. 2011 à 14:05
Encore du temps de perdu par imprécision du demandeur!
la semaine commence bien!

bonjour à lermite
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

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

0 réponse
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses