Boucler sur les index sélectionnés d'une ListBox (RÉSOLU)

[modus57]

Bonjour à tous.

Pour boucler sur toutes les données d'une ListBox voici le code trouvé sur un forum :

Private Sub CommandButton1_Click()
    Dim i As Integer    
    'Les index des Listbox commencent par zéro
    For i = 0 To ListBox1.ListCount - 1
        Debug.Print ListBox1.List(i)
    Next i
End Sub

Mais comment boucler sur les index sélectionnés.

Merci d’avance pour votre aide.

 

[Dranreb]

Re : Boucler sur les index sélectionnés d'une ListBox

Bonjour.

If Lisbox1.Selected(i) Then Debug.Print ListBox1.List(i)

Cordialement.

 

[modus57]

Re : Boucler sur les index sélectionnés d'une ListBox

Re bonjour.

J'ai trouvé la solution sur le même forum pour boucler sur les lignes sélectionnées dans la Listbox:

Dim i As Byte
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then MsgBox ListBox1.List(i)
    Next i

Merci quand même.

 

[modus57]

Re : Boucler sur les index sélectionnés d'une ListBox

Bonjour Dranreb

Nos réponses se sont croisées.

Comment marquer cette discussion comme résolu ?

Pourriez-vous me répondre svp.

 

[Dranreb]

Re : Boucler sur les index sélectionnés d'une ListBox

Aucun dispositif n'est prévu pour ça, mais modifier le titre de la discussion en mettant "[Résolu]" devant se fait quelquefois.

P.S. Le "= True" de votre formulation est de trop: le signe "=" utilisé comme opérateur de comparaison sert à former une expression Boolean à partir de deux données d'un autre type or "ListBox1.Selected(i)" est déjà Boolean. L'opérateur à employer pour déterminer si deux Boolean sont identique serait d'aileurs "Eqv" et non "=". Mais X Eqv True = X toujours !
Cordialement.