Discussion :

[vivi4561]

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

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vivi4561]

Bjr Pijaku,

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