Multiselection

Le
Jean-Michel
Bonjour,

Comment je peux récupérer le numero de plusieurs lignes d'une listbox au cas
ou l'operateur selectionne plusieurs lignes grace à ctrl !

Merci pour votre aide !

Jean-Michel
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
François Picalausa
Le #14735031
Bonjour/soir,

Jette un oeil à la propriété Select.
Dim ItemsLeft As Long, i as long
ItemsLeft = List.SelCount

Do While ItemsLeft And i < List.ListCount
If List.Selected(i) Then
ItemsLeft =ItemsLeft -1
Msgbox List.List(i)
Msgbox "Encore " & ItemsLeft & "éléments restant à trouver"
End If
i = i + 1
Loop

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Jean-Michel" message de news:
Bonjour,

Comment je peux récupérer le numero de plusieurs lignes d'une listbox
au cas ou l'operateur selectionne plusieurs lignes grace à ctrl !

Merci pour votre aide !

Jean-Michel


ng
Le #14735021
Salut,

Le controle doit déjà être en MutliSelect = True, il suffit alors de boucler
les item :

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "L'item #" & (i + 1) & " est sélectionné !"
End If
Next
End Sub



--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Jean-Michel
Bonjour,

Comment je peux récupérer le numero de plusieurs lignes d'une listbox
au cas ou l'operateur selectionne plusieurs lignes grace à ctrl !

Merci pour votre aide !

Jean-Michel


Jean-Michel
Le #14657371
merci je vais essayer

"ng" news:
Salut,

Le controle doit déjà être en MutliSelect = True, il suffit alors de


boucler
les item :

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "L'item #" & (i + 1) & " est sélectionné !"
End If
Next
End Sub



--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Jean-Michel
> Bonjour,
>
> Comment je peux récupérer le numero de plusieurs lignes d'une listbox
> au cas ou l'operateur selectionne plusieurs lignes grace à ctrl !
>
> Merci pour votre aide !
>
> Jean-Michel




ng
Le #14657351
ReSalut,

Petite correction :

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
MsgBox "L'item #" & (i + 1) & " est sélectionné !"
End If
Next
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

ng
Salut,

Le controle doit déjà être en MutliSelect = True, il suffit alors de
boucler les item :

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "L'item #" & (i + 1) & " est sélectionné !"
End If
Next
End Sub




Bonjour,

Comment je peux récupérer le numero de plusieurs lignes d'une listbox
au cas ou l'operateur selectionne plusieurs lignes grace à ctrl !

Merci pour votre aide !

Jean-Michel




Jean-Michel
Le #14734571
J'ai un probleme, c'est que ca me dit erreur de compilation sur
List1.ListCount
Pareil pour SelCount et ListCound, il ne coonnait pas ces propriété, pk ?

Merci !

"ng" news:%
ReSalut,

Petite correction :

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
MsgBox "L'item #" & (i + 1) & " est sélectionné !"
End If
Next
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

ng
> Salut,
>
> Le controle doit déjà être en MutliSelect = True, il suffit alors de
> boucler les item :
>
> Private Sub Command1_Click()
> Dim i As Integer
> For i = 0 To List1.ListCount - 1
> If List1.Selected(i) = True Then
> MsgBox "L'item #" & (i + 1) & " est sélectionné !"
> End If
> Next
> End Sub
>
>
>
>
>> Bonjour,
>>
>> Comment je peux récupérer le numero de plusieurs lignes d'une listbox
>> au cas ou l'operateur selectionne plusieurs lignes grace à ctrl !
>>
>> Merci pour votre aide !
>>
>> Jean-Michel




Publicité
Poster une réponse
Anonyme