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

SPGoder

XLDnaute Occasionnel
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)

VB:
    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

XLDnaute Occasionnel
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 :
VB:
if Num_Facture_Fusionnée_(5)<>""  then  WsFact.Range("AQ" & L).Value = Num_Facture_Fusionnée_(5)
 

Discussions similaires

Réponses
4
Affichages
165
Réponses
5
Affichages
125
Réponses
17
Affichages
760

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib