XL 2019 Récupérer multisélection d'une listbox dans des variables

[SPGoder]

Bonjour
Encore une fois, je me tourne vers vous
J'ai besoin de récupérer la premier colonne d'une listbox en multi sélection dans dans des variables différentes, pour les utiliser dans un autre userform
Au début, je n'avais besoin que de 2 sélections, donc je verrouillais la multi sélection à 2 obligatoirement, et utilisais le code suivant (les variables Fact_1 et Fact_2 ont été déclarées en public dans un module)

    Dim i As Integer
    
    'récupération des N° de facture
        Fact_1 = ""
        Fact_2 = ""
        For i = 0 To ListBox3.ListCount - 1
            If ListBox3.Selected(i) = True Then
                If Fact_1 <> "" Then Fact_2 = ListBox3.List(i, 0)
                If Fact_1 = "" Then Fact_1 = ListBox3.List(i, 0)
            End If
        Next i

Mais mon projet avançant, j'ai maintenant besoin de récupérer une sélection entre 2 et 12, donc récupérer entre 2 et 12 variables
Et je n'arrive pas à adapter mon code....
Merci de votre aide, car je rame grave

 

[SPGoder]

J'ai du faire des recherche car j'étais perdu au début....
mais j'ai compris. C'est une autre manière de faire.
Autre question, comment peut on déterminer si les variable du tableau existe?
Exemple

WsFact.Range("AM" & L).Value = Num_Facture_Fusionnée_(1)
WsFact.Range("AN" & L).Value = Num_Facture_Fusionnée_(2)
WsFact.Range("AO" & L).Value = Num_Facture_Fusionnée_(3)
WsFact.Range("AP" & L).Value = Num_Facture_Fusionnée_(4)
WsFact.Range("AQ" & L).Value = Num_Facture_Fusionnée_(5)

Mais si je n'ai sélectionné préalablement que 3 élément dans la list box, j'ai une erreur pour la valeur 4 et 5
(normal, car en a été créé que 3 dans le tableau)
du style :

if Num_Facture_Fusionnée_(5)<>""  then  WsFact.Range("AQ" & L).Value = Num_Facture_Fusionnée_(5)

 

[SPGoder]

if ubound(Num_Facture_Fusionnée_)>3then  WsFact.Range("AQ" & L).Value = Num_Facture_Fusionnée_(5)

J'ai trouvé cette idée, mais je suis preneur d'une autre methode

 

[mapomme]

comment peut on déterminer si les variable du tableau existe?

Je ne comprends pas trop votre question.
Pour moi, on boucle: for i = 1 to ubound(choisis) .... next i du type :

For i = 1 To UBound(Choisis)
   WsFact.Range("AM" & L).Offset(, i - 1) = Choisis(i)
Next i

 

[SPGoder]

Oui, tout à fait.
Quand je le lis, ça me parait évident, mais pas encore les bons réflexes
Merci encore

 

[mapomme]

mais pas encore les bons réflexes

Ne vous en faites pas, ça va venir