Sélection d'une ligne dans listbox

Bonsoir,

j'ai lu pleins de choses sur ce sujet sans réellement trouvé ma réponse.

Voilà, j'ai fait le code suivant pour afficher un certain nombre de ligne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
' Affichage Stock
Dim MyArrayStock(1000, 7)
 
ListBox8.ColumnCount = 9
 
Windows("Stock.xls").Activate
Sheets("Stock").Select
Nligne = Cells(1, 1).CurrentRegion.Rows.Count
Z = 0
MyArrayStock(0, 1) = "Type Dépôt"
MyArrayStock(0, 2) = "Magasin"
MyArrayStock(0, 3) = "Emplacement"
MyArrayStock(0, 4) = "Lot"
MyArrayStock(0, 5) = "Numéro de Série"
MyArrayStock(0, 6) = "Quantité"
MyArrayStock(0, 7) = "Date de réception"
 
 
For x = 1 To Nligne
    If Cells(x, 1) = ArtRech Then
        Z = Z + 1
        MyArrayStock(Z, 1) = Cells(x, 3)
        MyArrayStock(Z, 2) = Cells(x, 2)
        MyArrayStock(Z, 3) = Cells(x, 4)
        MyArrayStock(Z, 4) = Cells(x, 5)
        MyArrayStock(Z, 5) = Cells(x, 6)
        MyArrayStock(Z, 6) = Cells(x, 7)
        MyArrayStock(Z, 7) = Cells(x, 8)
        StockMoyen = Cells(x, 9)
    End If
Next x
ListBox8.List() = MyArrayStock
ListBox8.ColumnWidths = "5;80;100;100;100;70;100;80"

Or, je voudrais sélectionner une ligne parmi les lignes du textbox pour afficher un nouveau formulaire

comment peut on faire

merci d'avance