Boucle ListBox [Résolu]

boum88 3 Messages postés mercredi 5 janvier 2011Date d'inscription 26 janvier 2011 Dernière intervention - 25 janv. 2011 à 15:20 - Dernière réponse : boum88 3 Messages postés mercredi 5 janvier 2011Date d'inscription 26 janvier 2011 Dernière intervention
- 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
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 25 janv. 2011 à 18:23
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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de cs_Jack
marion8316 75 Messages postés mercredi 17 août 2011Date d'inscription 27 septembre 2011 Dernière intervention - 25 janv. 2011 à 18:27
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
boum88 3 Messages postés mercredi 5 janvier 2011Date d'inscription 26 janvier 2011 Dernière intervention - 26 janv. 2011 à 10:06
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
boum88 3 Messages postés mercredi 5 janvier 2011Date d'inscription 26 janvier 2011 Dernière intervention - 26 janv. 2011 à 10:15
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.