Elements séléctionnés dans ListBox

[Phil.Brrd]

Bonjour à tous
Je tiens à remercier tous les contributeurs de ce forum qui sans lui je n'aurais pas bien avancé en vba...
Ma question:
Comment récupérer les éléments sélectionnés dans une ListBox pour pouvoir les passer en 'variable'.
J'ai besoin de récupérer ces éléments pour faire des tris sur des feuilles de données.
Je vous joins un Zip demo de ma feuille actuelle.
Merci encore pour votre aide à venir.

Philippe [file name=Serv.zip size=15497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Serv.zip[/file]

 

[AeroPlanneur]

bonjour Philippe,

je ne sais pas comment tu veux utiliser tes données, mais tu peux construire un tableau à partir des éléments de ta liste sélectionnés :

Dim I As Integer
Dim tmp As Integer
ReDim myArray(0) As Variant
'************ remplissage du tableau *******
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then
tmp = tmp + 1
ReDim Preserve myArray(tmp)
myArray(tmp) = ListBox1.List(I)
End If
Next
'************* vérification ****************
For I = 1 To UBound(myArray)
MsgBox I & ' ' & myArray(I)
Next

pour tester ce code, tu peux le placer dans
Private Sub UserForm_Click() par exemple


cordialement

 

[Phil.Brrd]

Bonjour AeroPlanneur,

Je te remercie pour ta réponse si rapide et je vais la tester de ce pas.
Je te tiens au courant ...

Pour te donner une idée plus précise de ce que je dois traiter:
La sélection du 1er champs dans la combobox de gauche me fais un tri sur une feuille excel, et sur ce résultat, je dois faire de nouveaux tris vers d'autres feuilles en fonction des champs sélectionnés dans la ListBox de droite. (Tout ceci est éxecuté après validation sur un bouton que je n'ai pas représenté dans mon exemple joint).
(est-ce que c'est plus clair sur la finalité de ce que je dois réaliser?)

Cordialement
Philippe