[XL-2003] ListBox choix multiple

ListBox choix multiple

Bonjour tout le monde !

Voilà j'ai une listbox où les utilisateurs peuvent sélectionner plusieurs intitulés de demandes. Comment, en VBA, dire "Pour chaque demande choisie faire". Je pensais à un For each que je n'ai jamais utilisé mais du coup je ne vois pas quel est mon groupe de données (comment le fixer ?)

Je voudrai que ça donne :
Code:

1 2 3 4 5 6 For each demande sélectionnée in listBox Remplir la fiche avec les données liées à cette demande (données listées dans une feuille excel du même classeur) La mettre en format PDF L'enregistrer Effacer les données de la fiche Next
Je ne vois pas d'autres moyens car l'utilisateur peut très bien sélectionner 50 demandes. Cette solution m'a l'air pas mal mais quand il s'agit de la traduire en VBA c'est autre chose... Ce n'est que la première ligne que je ne sais pas formuler. Pour le reste ça devrait aller :)

Merci d'avance pour vos réponses ! ;)

Bonjour,

Pour parcourir la liste des éléments sélectionnés :

Code:

1
2
3
4
5
6
7
8
Private Sub ListBox1_Click()
    Dim itemIndex As Integer
    For itemIndex = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(itemIndex) = True Then
            ' texte de l'élément sélectionné :  ListBox1.List(itemIndex)
        End If
    Next itemIndex
End Sub

A+

Ok merci je vais tester :ccool: