Bonjour,
J'ai le code suivant qui me récupère dans la variable Tabl, tous les items sélectionnés dans la ListBox.
Ensuite je souhaite (pour l'instant) les écrire via Debug.Print et là j'ai plus que le dernier item inscrit dans la variable.
J'ai le code suivant qui me récupère dans la variable Tabl, tous les items sélectionnés dans la ListBox.
Ensuite je souhaite (pour l'instant) les écrire via Debug.Print et là j'ai plus que le dernier item inscrit dans la variable.
Code:
Private Sub CommandButton1_Click()
Dim Tabl()
j = 1
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ReDim Tabl(j, 1)
Tabl(j, 1) = .List(i, 0)
.Selected(i) = False
j = j + 1
End If
Next
End With
[B][COLOR=red] For W = 1 To UBound(Tabl, 1)
Debug.Print Tabl(W, 1)
Next W
[/COLOR][/B]End Sub