Récupérer sélection multiple d'une ListBox [Résolu]

- - Dernière réponse :  Theo - 31 janv. 2019 à 08:33
Bonjour,

J'ai un UserForm avec une ListBox : ListBoxDocuments
Elle permet la sélection multiple.

J'aimerais récupérer les informations de cette sélection dans une liste par exemple pour ensuite traiter les données une à une

J'ai tenté :

Set ListDocs = CreateObject("Scripting.Dictionary")
With ListBoxDocuments
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            ListDocs.add ListBoxDocuments.item(i)
            NbDocs = NbDocs + 1
        End If
    Next i
End With


Mais ça ne fonctionne pas, des idées ?

J'aimerais également ouvrir un second USF avec un MultiPage (Nombre de page = Nombre de Documents sélectionnés; Nom de chaque page = Noms de chaque document sélectionné)

J'ai essayé ça :

Private Sub UserForm_Initialize ()

For i = 2 to NbDocs
      Me.MultiPage1.Pages.Add
      Multipage1.Pages.Caption = "Test" 'Ici il faudrait utiliser les données de la sélection multiple
Next i

End Sub


Ci joint le fichier https://www.cjoint.com/c/IAEpjTtlhhm

Je continue de rechercher une solution,
Merci d'avance
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177
1
Merci
Bonjour,

fichier modife que pour les deux demandes: https://mon-partage.fr/f/VUqHGncy/

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 64079 internautes nous ont dit merci ce mois-ci

Commenter la réponse de f894009