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 : 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
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