Boucle ListBox [Résolu]

Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
26 janvier 2011
- - Dernière réponse : boum88
Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
26 janvier 2011
- 26 janv. 2011 à 10:15
Bonjour,

je rencontre un problème alors que pourtant, sa doit pas être compliqué

sur ma fenêtre j'ai une listbox, dans laquelle j'ai une liste de personnes

j'aimerais juste faire une boucle de cette listbox afin de récupérer les éléments sélectionnés (afin d'y faire un INSERT de ces personnes dans une autre table)

je pense qu'on peux directement faire une boucle de cette listbox avec les éléments sélectionné, mais même problème : je n'y arrive pas

sa fait une heure que je cherche sur internet mais pas de solution qui marche

merci d'avance pour votre aide
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
3
Merci
Salut

Il aurait été préférable que tu montres ce que tu avais tenté, histoire de comprendre.

Affichage des Items sélectionnés dans une ListBox
If Me.ListBox1.SelectedIndices.Count > 0 Then
    For r As Long = 1 To Me.ListBox1.SelectedIndices.Count
        MsgBox(Me.ListBox1.SelectedIndices(r - 1) & vbCrLf & _
               Me.ListBox1.SelectedItems(r - 1).ToString)
    Next
End If

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Merci cs_Jack 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de cs_Jack
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Dernière intervention
27 septembre 2011
0
Merci
Bonsoir,

Ci-dessous code qui permet de lister les éléments d'une Listbox qui sont sélectionnés.

Attention : C'est du code VBA, mais je pense qu'en VB 2005 le principe est le même.

Didier

'
Dim I As Integer

For I = 0 To Me.ListBox1.ListCount - 1

If Me.ListBox1.Selected(I) = True Then
Debug.Print Me.ListBox1.List(I)
End If

Next I

MsgBox "ok"
Commenter la réponse de marion8316
Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
26 janvier 2011
0
Merci
merci de vos réponses,

enfaite quand je rempli ma listbox via une requête SQL, je stock au passage au passage la clé primaire :

If dt.Rows.Count <> 0 Then 'si il y a au moins 1 résultat
For i = 0 To dt.Count - 1
ListBox.Items.Add(dt.Rows(i).Item(1).ToString)
Tid(i) = (dt.Rows(i).Item(0).ToString)
Next
End If

Or avec ta méthode Jack, je récupère seulement les ID des items sélectionnés, par exemple j'ai 3 personnes dans la listbox, si je sélectione la première et la dernière , j'aurais 1 et 2, hors moi j'aurai voulu récupérer 1 et 3 pour ensuite comparé avec mon tableau (afin de récupérer la clé primaire)

chez pas si c'est très clair

PS:Marion8316, en VB.net le listcount ne marche pas sur les listbox
Commenter la réponse de boum88
Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
26 janvier 2011
0
Merci
enfaite désolé ta méthode marche parfaitement comme je le souhaité jack
merci beaucoup & bonne journée ;)
Commenter la réponse de boum88

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.