Listbox à multi selection, récupérer les valeurs sélectionnées [vb6]

Signaler
Messages postés
2
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
10 septembre 2005
-
valtrase
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
-
Bonjour,

je cherche comment récupérer sous vb6 à récupérer les valeurs
sélectionnées dans une listbox a choix multiple afin de traiter ces
valeurs....



J'ai essayer avec listbox1.text, mais cette propriété ne marche pas,
elle renvoie toujours la même valeurs celle située la plus en bas dans
la listbox.....



Voila merci d'avance.

4 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
22
Bonsoir,
Tu places deux ListBox et un CommandButton sur ta Form.

Private Sub Form_Load()
' Déclare la variable.
Dim I
' Remplit la zone de liste à l'aide des noms des
' polices d'écran.
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub

Private Sub Command1_Click()
' Déclare la variable.
Dim I
' Efface tous les éléments contenus dans la liste.
List2.Clear
' Si un élément est sélectionné, l'ajoute à List2.
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next I
End Sub

jpleroisse
1
Merci

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

Codes Sources 202 internautes nous ont dit merci ce mois-ci

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
28
Bonjour,



Il faut boucler sur tous les éléments et regarder si il est sélectionné.



ChRB




Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Messages postés
2
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
10 septembre 2005

oui j'ai fait cette condition.

Je vien de trouver la propriété adéquate c'est list(entier)



listbox.list(3) renvoi le 3eme element de la listbox. Par contre avec
listbox.text ca renvoi le dernier element selectionné meme si tu en as
2-3-4.. selectionné.



Voila Merci à vous de votre reponse
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
3
Salut,
Petite précision
La propriété List est un tableau donc tu peux l'utiliser en tant que tel
Teste ce bout de code pour t'en rendre compte
Il te faut une zone de liste et un bouton sur ta feuille

Private Sub CommandButton1_Click()
Dim i As Integer: Dim Tvar
For i = 1 To 10
ListBox1.AddItem "liste :" & i
Next
MsgBox "la liste est chargée"
Tvar = ListBox1.List
MsgBox "le tableau est chargé"
[C1:C10] = Tvar
End Sub

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé