[XL-2007] VBA ListBox multiselection enregistrement dans variable

VBA ListBox multiselection enregistrement dans variable

Bonjour,

Savez vous comment faire en VBA lorsque j'utilise une ListBox pour entrer les valeurs dans une variable (la listBox est en mode multiselection) ?

Puis ensuite comment lire les valeurs du tableau ?

Merci d'avance pour votre aide.

Vince

Bonjour vivi,
1- je ne suis ô combien pas spécialiste des variables tableaux... Mais celle ci à l'air de vouloir fonctionner, alors j'en profite!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Tablo()
Dim Lig As Byte
Dim Num As Integer
'Boucle sur les éléments de la Listbox (ListBox1 : nom à adapter)
For Lig = 0 To ListBox1.ListCount - 1
'Si la ligne est sélectionnée (ListBox1 : nom à adapter)
    If ListBox1.Selected(Lig) = True Then
'on redimensionne la var tablo, tout en en sauvegardant les valeurs
        ReDim Preserve Tablo(Num)
'on lui attribue l'élément sélectionné (ListBox1 : nom à adapter)
        Tablo(Num) = ListBox1.List(Lig)
        Num = Num + 1
    End If
Next
'restitution des éléments contenus dans la variable Tablo()
For Num = 0 To UBound(Tablo())
    MsgBox Tablo(Num)
Next

Bjr Pijaku,

C'est exactement ce que je cherchais !!
Merci bcp !!!