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

SPGoder · 17 Avril 2021

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 · 17 Avril 2021

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)

SPGoder · 17 Avril 2021

Code:

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 · 17 Avril 2021

SPGoder à dit:
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 :

VB:

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

SPGoder · 18 Avril 2021

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

mapomme · 19 Avril 2021

SPGoder à dit:
mais pas encore les bons réflexes

Ne vous en faites pas, ça va venir

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

SPGoder

XLDnaute Occasionnel

SPGoder

XLDnaute Occasionnel

SPGoder

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

SPGoder

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Discussions similaires